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ERRATA 


Certains incidents techniques ont empeche la bonne reproduction des listages, 


Page 24, dans l’article de F. Vadez: 
FJLE OEB BC EX X 

FTIF QRE AC EX H 

F720 361 

F721 (50 GOSURB 1408 

F722 2E0 SETHEX 


F730 QIC PT= 3 
F785 023 GONC +04 
F788 146 AAC À 


F7BL 608 GOSUB 22E8 
F7B2 301 
F7B3 0BO GOSUB 2CF0 
F7B4 SED 


FICA 646 C=Q À 


Page 32, dans l’article de M. Martinet: 
En haut de la page 32, il faut lire: 
si ce fichier se trouve dans un port protege, il est tout de mere detruit 

6600 IF K$=’E? THEN GOSUB ’ENTREE” 
Page 33, en haut: 
4016 INPUT ENTREE :° 5 A$ 
4020 IF A$=*? THEN RETURN 
Et en haut de la page 34: 
7160 STANDEY 1,.1 

- Idea plus haut pour *STANDBY' 


Page 40, dans l’article "BLDSPEC DENYSTIFIE": 
En haut, il faut Lire OILBL *ELS*, 02 SF 12. 


Voila, c'est fini ! 


PPÈ PC vous souhaite une bonne lecture, et... une heureuse programmation ! 
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EDITORIAL 


ENCORE UN JOURNAL TRES PLEIN ET TRES TECHNIQUE CE MOIS-CI. 





Chers amis, 


N'oubliez pas notre assemblée générale annuelle qui se passera le 
dimanche 14 ou le dimanche 21 octobre. Que ceux qui peuvent nous 
proposer une salle dans Paris se fassent connaître. Nous sommes 
aussi à la recherche d'un nouveau comptable. Que ceux qui sont 
interressés par ce poste, nous écrivent. 


La réalisation du nouveau journal "ppcPPCn est actuellement à l'étude. 
Nous cherchons tous les membres connaissant l'anglais et l'allemand 
PARFAITEMENT et pouvant consacrer quelques heures par trimestre, 


Le mois dernier, nous voulions mettre de la couleur dans le journal. 
Mais pour diverses raisons, l'essai ne fut pas trés concluant et nous 
avons été obligés de tout faire en noir et blanc. Ce mois une nouvelle 
couverture est à l'étude. Le modèle que vous avez est fait au même 
prix par l'imprimeur, mais le prix du timbre est considérablement 
augmenté. Lors de notre prochaine assemblée générale, nous vous 
présenteront la même, mais collée. Cette dernière nous coute 6 à 7FF 
par journal. À vous de choisir celle que vous préférez. Cette augmentation 
du prix du timbre, nous oblige à faire un appel. Que ceux qui peuvent se 
réunir pour recevoir le journal se fassent connaître et dans la mesure 
du possible, nous essayerons de le distribuer lors de nos réunions 
mensuelles au centre Jean Verdier. 


Vous trouverez plus loin une lettre de Franck Lebastard, nous invitant 
à la prochaine réunion PPC qu'il organise à Romagné les samedi 8 et 
dimanche 8 septembre. J'essayerai de m'y rendre selon mes disponibilités, 
mais, nous souhaitons nos amis bretons et moi que le maximum de membres 
de Paris s'y rende. Un grand nombre de matériel y est présenté et il y 
règne une ambiance de .fête que seul un petit groupe de passionnés peut 
la créer. Enfin, notre prochaine réunion parisienne au centre Jean Verdier, 
aura lieu le samedi 1 septembre à 16heure. 


Dans les nouvelles venant du magazine 1'OI, nous avons apprisque la 
rubrique calculatrucs est amenée à disparaître. Nous demandons au 
maximum de membres d'écrire au journal pour la conserver. 


Envoyez vos lettres à: RUBRIQUE CALCULATRUCS, 
REVUE L'ORDINATEUR INDIVIDUEL 
5, Place du colonel Fabien 
75491 PARIS CEDEX 10. 


LE BUREAU VOUS SOUHAITE A TOUS UNE HEUREUSE PROGRAMMATION. 


Dernière minute: Nous n'avons plus la salle pour le premier 
sptembre , mais elle sera disponible pour le 15 ou le 29 septembre. 
Pierre David aura une réponse définitive aprés le 3 septembre. Veuillez 
nous contacter pour confirmation. 


FRANCK LEBASTARD 
10, RUE DE LA JALOUSIE 
35600 REDON. 
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Cher Philippe, 


Tous les membres de PPC PARIS sont invités à la réunion PPC 
organisée par PPCT les 8 et 9 septembre 1984 à Romagné en Bretagne, 
chez Jacques Vaucelle. 


Cette rencontre d'une durée de 2 jours sera l'occasion de se voir 
d'essayer tous les nouveaux matériels. 


Tous les nouveaux modules des clubs PPC seront présentés, avec en 
particulier le module "PANAME"', démonstration qui sera effectuée par 
l'un de ses deux créateurs: Jean Jacques Dhénin. Ce module m'a véritablement 
enthousiasmé, ses 8k de microcodes renfermant des trésors. 


Jacques Vaucelle et Etienne Poupée présenteront également leurs 
réalisations, ce qui ne manquera pas d'interesser (et c'est un faible mot) 
les personnes présentes. 


Bien évidemment, tout le matériel HP sera comme d'habitude 1à (j'entends: 
tous le matériel HP destiné aux ordinateurs de poche). 


Le gîte et le couvert sera assuré pour tous, à la condition toutefois 
que je sois prévenu à l'avance de leur présence. Ceux qui désirent venir, 
peuvent me passer un coup de fil, ainsi que ceu qui veulent se désister. 
I1 sera possible, pour ceux qui ne connaissent pas la région, de se donner 
rendez vous à un point précis, comme l'église de Romagné ou à la gare de 
Rennes, par exemple. 


En souhaitant la présence d'un maximum de parisiens, 


AMICALEMENT, 


FRANCK. 


















IE us 
ROMAGNE ._/7 ) 
% 7 / k Ï . Je 


” LR 
vers 
Rennes 


ITINERAIRE CONSEILLE 
PAR LA D18 & LA D112, 


LE TRAJET SERA FLECHE A 


PARTIR DE ROMAGNE . 





35133 Roma ne 
16 (99) 98 83 69 


22 


D1 D18 HE n'i16 page |! 


et Mme DAVASE Ph. 
T° Étage - Appt N 2471 
7, rue Ho-Chi-Minh 
Les Indes SARTROUVILLE LE 10.06.84 
78500 SARTROUVILLE 
Tél. : (3) 913.51.67 


JE VOUS SERAIS RECONNAISSANT DE BIEN VOULOIR INSERER CETTE ANNONCE 


DANS LA FROCHAINE EDITION DE LA REVUE 


JE VIENS D'ACHETER LE HPTTIR us uuuumun QU'ELLE MERVEILLE III 


DAVASE PF, 7 RUE HO CHI MINH 78800 SARTROUVILLE 
LR PIE, Si, GPHPPCTAOS-FPOPCT/EVENDS TRES EN ETAT 
1) IMPARSIAEA OS/6E + ROULEAUX FRIX = 1500 FRS 
2) EXTENSION SICAFE 4 FORTS AVEC ALIMENT. INCORP 


JéGOUZO Christian, 7 rue de la vôute 75012 PARIS TEL: 307.64.53 
Vends 1 X-Function 450 frs 


Recherche membre qui pourrait me prêter les livres suivants: 
- " HP-41 Extended Functions Made Easy " de Keith Jarett 
- " Autour de la boucle " de Janick Taillandier 





TT À 
J DANS LA PRESSE LU DANS LA PRESSE LU DANS LA PRESSE LU DANS LA PRESSE LU DANS LA PRESSE LU DA 


8 A 10 MIPS SUR LES PROCHAINS SYSTEMES DE GESTION HP : 
Palo Alto : Connue sous le nom de code de Spectrum, la première 
ligne de systèmes de gestion Hewlett Packard à technologie 32 
bits devrait être annoncee dans les premiers mois de l'exercice 
commençant le Jer Novembre 1984. Largement compatible avec la 


liqne HP 3000, la série Spectrum devrait offrir une performance 
re à 10 MIPS (1,1 MIPS pour le HP 3000/68) et se caractériserait 
ar l'architecture RISC (Reduced Instruction Set Computer) permet- 
er d'optimiser l'exécution de nombreux compilateurs de langages 
de haut niveau. 





RS PE EP EC ES 
0,5,5,0,5,0,5,0,5,0,$,0,5.0,S,0,S,0,5,0,$,0,S,0,5,0,5,0,5,0,5,0,5.0,5,0.5.0,5,0,5,0,5.0,5.0,S.0,S 
mm 


Olivier Dancer, recherche quelqu'un qui aurait réalisé un programme 





de paye. Ecrire au 99, Rue St Fargeau 75020 PARIS. 


Poor A 


NOUS EN AVONS: 
Sont en vente au club: 


— cartes magnétiques au prix de 150FF les 50 cartes (TTC) 

— eproms vierges (2716 et 2732) au prix de 55 + 3,10FF pieces (TTC) 

— pour les eproms programmée, nous consulter. 

— convertisseurs + connecteur + manuel (HP82166A) au prix de 1650 + 3,10FF 
piece (TIC) 

— modules HPIL en promotion (HP82160A) au prix de 760 + 3,10 FF piece (TTC) 

— le MLDL hollandais n'est plus en promotion PPC (nous attendons son- prix 
définitif) 

— Pour les commandes de CCDROM, ZENROM et maintenant de ROM PANAME, nous 
envoyer maintenant une souscription de 500FF minimum. La ROM PANAME est 
au prix de 1100FF pour les membres PPC. 

— Le VASM (listing explicité des 3 premières pages de la 41) au prix de 150FF 
+ 6,50 de port. 

— les anciens numeros de JPC sont à nouveau disponibles au prix de: 


- N° 1 à 3 15FF piece 
- N° 4 à 10 20FF piece 
- N°11 à 15 25FF piece 


— manuel du convertisseur 20FF 
— les listing des ROM en mnemoniques HP et en mot HEX : 


- pages 9, 1 et 2 de la 41 30OFF 
— XFONCTION 10FF 
— UNITE DE CASSETTE 10FF 
— IMPRIMANTE 82143 10FF 
— IMPRIMANTE 82166 10FF 
— MODULE HORLOGE 10FF 
— LECTEUR DE CARTES 10FF 
— LECTEUR OPTIQUE DE BARRES 10FF 
— MODULE PLOTTER 20FF 
— EXTENDED 1/0 10FF 
— HPIL DEVELLOPEMENT 20FF 


Les tarifs postaux en non urgent sont actuellement de: 


— jusqu'à 20gr 1,70FF 
— jusqu'à 5SOgr 2,40FF 
— jusqu'à 100gr 3,20FF 
— jusqu'à 250gr 6,50FF 
— jusqu'à 500gr 9,50FF 
— jusqu'à 1000gr 13,50FF 
— jusqu'à 2000gr 19,60FF 


pour la France et assimilés 
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ait Metuutne en A L'idendi eut ton Accessoire du pérlbher que pepu i S quel ques temps dé ja vols 

principal. | 5 $ : 
À - … gs à + 

iU: Votourne en ALPHA l'identification Appareil du périphérique êtes en PASSES on dd Nine HP-A1 et 

pr inc 1m . vous auriez aimé pouvoir bénéficier 

NINLAID: kWecherche sur le boucie un périphérique d'AID Cou de classe)? des avan t ages de ] a houc 1 e HP - l I 


specirie pur NM (‘0 pour une ciasse) et renvuite son wliesse en X. 
= Ve n i * ‘- < D 
trIAN: OUTA à rêbétitiun . 1x1 indique le nombre de repétitluns. Pour vous fac | 1 Ï { OT 1 accés À cet 


UTICR: Fnvule au périphérique principal un  Coractère 13 (retour ou ti | prod i q i eux Gi I e ROM PANAMI: 
RATS vient à point nommé . vous ne servez 
is Envoie au périphérique princibel un charartére 10 Fin de pi us cont ra ji nt de vous t ordre 1 & 
OUTLEN: Envoie su ‘périphérique principal un ou plusieurs chaructêres cerveau pendant des heures pour 
in crin de iiune), lai indique le nome de Cheruciéres. détermi ner il a sil i te d . i nst ruct . 
CREULE Envole eu pariphés tique princihul Un où plusieurs chuructérexs 9 ‘ : “6 . : : .TONS 
Ju tesparsr, Xl indique 14 nombre de charnctéren. escape qui de toutes facons rie 
auraD: Envoi eu périphérique principal un vctet spocitié pur IX fonctionne pas pour effacer 1'écran 
: nmvui tusieurs Pol 2 une e e ode acet s ‘. = : 

ne us nu re Fe ai pe enr ans ee tas 0e Le à d tracet vous n ou 6z plus à 

fn a : : ; : 
COLE gimiluire à UUTA. mais orme le bit 7 de Lous les vctats envuyés Sn re Pl ve 1 } st ind | es 
tuer exemple pour le vidéa inverse sur HMs2103). hi érogl vphes que vous avez eu tant 
uurux: UUTU à répétition CCF OUTAX. de mal à soder pour mettre votre 
HOLNEL:  Retourne en X l'adresse du périphérique principal. Si le impr i man t ep da ns de bonnes 


SHLECT est » au noæbie de périphériques. RELSEL retourne 1. 


dispositions! 
Tel, le remède miracle du docteur DESCAMPS, voici 16 ROM PANAME, made 
in France! Pour Îles amateurs de tableaux, pour les assidus des Calculs 
matriciels, voici le ROM PANAME! 

Admirez le nombre des fonctions, et pensez que la plupart d'entres 
elles ont plusieurs modes d'utilisation...vous apprécierez tout 
particulièrement la facilité d'entrer les données dans Îles registres 
avec RGVIEW. 
vous ne pourrez plus vous passer de Ja fonction SORT qui trie aussi 
bien de l'ALPHA que du numérique, dans un sens ou dans l'autre... 


Une  lonque aventure s'achève pour nous avec l'avénement du ROM. 
pour vous, s'ouvre une nouvelle dimension dans votre travail quotidien 
de programmation. Plus de facilité, plus de rapidité dans l'exécution, 
plus de souplesse dans la gestion des périphériques, cet SCD ea 
adapté à vos besoins pour la simple raison qu'il a été conçu par des 
utilisateurs. 


Fidèle à notre démarche, celle qui a présidé à l'écriture de 
j'ouvrage PROGRAMMER HP-41, nous mettons à votre disposition des 
fonctions d'usage fréquent. 

Toutes ces nouvelles instructions sont écrites en assembleur, comme les 
fonctions standards de l'HP-A1. La même philosophie, les mêmes tvpes 
de messages; vous ne serez pas dépaysés. 


Ce module sera disponible au cours du mois de septembre: des 
considérations d'ordre matériel Ché ouit) nous obliqaent à faire un 
premier tirage restreint À 259 exemplaires. VOUS pouvez passer 
commande dès aujourd'hui. Cela vous permettra d'être servi en premier, 
de bénéficier de la remise aux membres PPC, et nous permettra de lancer 
la deuxième commande! 


VEUILLEZ PASSER VOS COMMANDES AUPRES DE PHILIPPE GUEZ 


Jean-Jacques DHENIN & Stéphane Barizion 


Fonctions pour HPB2163 
CSRVX Dépiace je curseur de IX! pnsitions vertiralement (vers 1e haut 


CLEAR: Efface l'écran. si X°0, vers le bas dans le ces inverse) 

CLEARO: Effece l'écran à pertir du curseur. CSRUP: Dépiece le curseur d'une position vers le heut 
CSRDN: Descend le curseur d'une position CTYPE: Sélectionne le type de curseur 

CSRHX: Déplare le curseur de |X! positions horizontalement (à gauche HONF: Repositionne le curseur en (0,0) 


#1 X<0, à droite dans le ces inverse) 
SCRLDN: Déroule l'’effichage d'une lione vers le bes 


CSRL. Dépiece le curseur d'une position vers ie gauche. 
SCRLUP Léroule l'affichage d'une ligne vers le haut 


CSkuFF: ‘Etelnt” le curseur. 


SCRY Déroule l'affichage selon IX x:0 ve 
CSkON: Fait epperaitre le curseur. bout rs le Des. X:'ÙU vers le 
CSKA Depiace je curseur d'une position vers le droite TAB Déplace le rurseur & le position tIKi,1Y!? 


JE n’16 page 


CIYPE: Sélectionne le type de curseur. 
Ho: Reposilionne La cursenr en (0,0). 

SURLUN:  Derouie l'‘uffichuye d'une liyne vers le Das. 
ACRLUP: Déruule l'uffichaye d'une Liune vers le haut, 


NCHX: Lérouie l'affichage suion |XI. X<O vers le bus, X:0 vers Île 
duut. 


XYTAB:  Déplace le curseur à la ponftlon (Ix1,1Y1). 
Fonctions pour HP82162 
CIAUF: Uffuce le mémoire tampon. 
AUIT: Vulide le mode 8-HIT. 
ESCAPFE: Valide le morte ESCAPE. 
PARSE: Valide le made céaure sur blanc. 
STATUS: kapelle en X et Y les 2 octets d'état de l'imprimante. 
TABCOL: Effectue une tabniation absolue au niveau du point selon IX]. 
UNPARNE: Valide le mode césure au Z4ème caractère. 


Fonctions pour HP82903 


BELL: Dinot 


CHARSET : Sélectionne le Jeu de caractères: X-0 primaire; X=1 


secondaire. 
FFEÉED: , Effectue un saut de page. 


FORMLEN : fndique le nombre de lignes dans une page logique {selon 
1x1). 


GRAPHX : Indique à l'imprimante d'interpréter les IX|I prochains 
caractères comme es codes de colonnes graphiques. 


MODE: Sélectionne le mode d'impression: O - Normal, 1=-,2-, 3e, 
6, 9 


SKIPOFF: Invalide la fonction de seut de perforations. 


TEXTLEN : Indique le nombre de lignes de texte par page logique (selon 
1X1). 


VSPAC: Sélectionne l'’espacesent vertical entre 2 lignes: |X| indique 
ie nombre de lignes par pouce. 


Fonctions pour æmini-plotter 


AXIS: Trace un axe au format sy{vant:  E 
n CZ 
ay 


dx 


Les données étant fournies ainsi: T -1t, Z - dg. Y - dx, X - n. 


BACKSP: Recule d'un caractere. 


BACKSPX : Recule d'un caractère ou plus (IX| indique le noæbre de 
caractères). 
BOX: Trace un rectangle dont 2 coins opposés ont pour coordonnées 


Ux1,yY1) et (x2.y2), avec T « y2, Z = x2, Y = y1, X - x1. 
COLOR: Selectionne la couleur du tracée. 

ACSIZE: Sélectionne la taille des caractères. 

#DRAW: Trace une ligne jusqu'au point de coordonnées (X,Y). 
“HOME: Ramène le stylo en position (0,0). 


LABEL læaprime le contenu du registre ALPHA (impression de textes en 
mode graphique, permet les directions définies par sLDIR). 


#LDIR: Défiuit la direction d'écriture pour #LABEL. 
aMOVE: Déplace le "styio” jusqu'à la position (X,Y). 
eLTYPE: Définit le type de ligne pour =DRAW et RDRAW (|XI + O & 15). 


2PLREGX: Un pointeur bbb.eee étant plecé en X, trace la ligne brisée 
passant par les points {CRbbD),(Rbbb-1)), CCRDDD-2), (RDDLD-3)] 


....{(CReee-1). (Reee)). 


RDRAW : Trace une ligne Jusqu'4& la position (X,Y) relative & la 
position actuelle du “stylo”. 


RESET: Initiaiisation, déplace ie stylo Jusqu'à la marge gauche et 
sélectionne le mode texte. 


REVLF: Fait revenir le papier en arrière d'une ligne. 


REVLFA: Fait revenir le papier en arrière d'une ligne ou plusieurs 
{selon 1x1). 


KMUVE : Dépluce le "stylo" Jusqu'à4 la pusition €(X,Y) relative à lu 
busltion uctuelle. 


SETORG: Redéfinit l'oriyine (0,0) comme êtant lu position actuelle du 
“stylu”. 


Utilitaires 
MOD:  Rernvolu le quutient et le reste de ln division eucllenne. 


AD-LC: Renvule les coordonnées (ligne, colonne) d'un élément d'un 
tubteuu cunnuissant son adresse. 


AUENG:  Renvolte la longueur de la chaîne présente en ALPHA. 


ANUM: Place duns X lu première valeur numérique Cuntenue dans la 
thulnuée présente duns le registre ALPHA. 


ANUMDEL : Idem  ANUM, et détruit le début de la chaine Jusqu'à cette 
viteur comprise. 


APPX: Place à ia suite de la chaîne présente dens le registre ALPHA 14 
partie entière de ja vuleur presente an X. Le séparateur décimal n'est 
nus tecuplé. 





AROT : Opéêre uue rotation des curactôres présents duns le jeylstre 
ALPHA du nombre de positions indiquées dans X. 


ATOXL: FPluce dans X le code décimal du caractère de gauche du reyistre 
ALFHA. 


AIOXK: Place dans X le code décimal du Curactère de droite du reuistre 
AEJ'UA. 


ATOXX Piuce dans X le code décimal du carnctére dont 1n position el 
srécifiéée pur le reuistre X. 


HLDEC: Construit un polnteur duns X 4 partir des éléments présents 
dans Z, Y et X. SI X:0, X = Z2Z.YYYXAX SI XCO, X - cude de matrice 
tel que Z +  prenier registre du tableau, Y - nombre de ligues, |X| - 
uombre de cCulonnes. 


HRHIT: Héècompose le regiutre X on trois veleurs numérique inversement 
de HUNET. 


CHE AG: AU uouurs le la construction du proursmme, L'uthbosrnsur 
définit un étut du HI-41 en uLilisant les Instructions habltuelles Cen 
mente CulCul). Eu mode programme XEU “CHILAG place dans le programme 2 








Lovnes: 

OÙ CHFLAG 

ut *...." une chaîne slpha non habituelle. 

Au cours de l'exécution du programmer les 2  liunes configurerons Le 


culeutateut conturmément à LA situation définie au moment de 


dr cut tuumemut ON. 


ELINCS Fffece dans le registre X jes fncrésents fie. @ partir du 
0), 

LORMT Construit le code de la colonne d'une matrice connatssant son 
GETRGX: Copie dans les mémoires spécifiées par x, les registres du 


fichier de données en se conformant aux 2 incrêments. 


LC-AD: Renvole l'adresse (No de re * 
=- gistre) d'un élément d' 
connaissant le No de ligne et je No de colonne. SET 


“LÉ Construit le code de le ligne d'une matrice connaissant son 


NOP: N'effectue sucune opération. 
OUT: Préfixe destiné à facititer l'écriture des fonctions. 


POSA: Renvole la 
dans X. position dans le chaîne ALPHA du caractère spécifie 


PSIZE: Alloue le nombre de registres indiqués dans X eux données 


REAREM: Copie de le cassette dans les XMEMO: = 
. . SL S S RY le “fichier e se 
d'extention ‘désigné‘ par le registre ALPHA. APRES d mémoire 


RG Préfixe pour aider 4 la frappe des fonctions. 


RG°-: Effectue l'seddition (ou le sou 
Stroction) terme 
registres désignés par les codes placés en Y et en x. AiterRe; des 


RG=: Cf RG--, effectue une œultipticat{ion. 


RG/: cf RG--, effectue une division 


RG-Y, RGrY et RG/Y: effectuent une opérat1o 
: n'erithmétique des t 
Désignés par X, avec l'opérande placé en Y. % PARTS 


RGAX:  S{ X:0. recopie le regiatre ALPHA dans le 
. s s s registr és 
par bloc de 6 caractères, ° na 


St X:0, place 4 droite de la chaine placée en ALPHA je contenu des 
registres de données 4 partir de la mémoire désignée en X, et Jusaqu'A 
le fin de la chaîne telle qu'elle avait ête chargse per RGOAX. | 


COPY : Si X:0 Cople les registres désignés per X dans les registres 
spécifiés en Y 

SI X°0, les blocs sont échangés. 

Admet un Incrément. 


RGINIT: Si X>0. Place le valeur O dans les regiatres désigné per x 
SI X°0, place les nombres de 1 4 n dans Jes registres. 


RGND: Renvoie le nombre d'éléments déterminés par un code dad,ffftit en 
x. 


RGORD Remplace Chaque valeur contenue dans les registres de donnñre 
spécifiés par leur rang dans le vecteur. 


RGXTR: Renvoie l'adresse de la valeur la plus orande ou la plus petite 
suivant le signe de X, en valeur absolue S1 le fI1ng 10 ent armé La 
montée de la pile n'est pas validée 


RGSUM:  Renvole la somme des valeurs spécifiées par le code en x St 
X‘0, Caicule ls somme des valeurs ebsolues, 


RGVIFW: Entrée ou affichage des registres Détails nécessaires. 
RAVERGX: Fonction inverse de GETRGX Recopie les regiatres dnsignés 
en X, dans le fichier de données courant, 4 partir du pointeur et sn 
sulvant l'incrément J 

X = bbb.eeeli 

SIZE?: Renvole le nombre de registres alloués gux données 


SORT: Trie par ordre croissant (X:0) ou décroissant (Xc0) les valeurs 
des registres désignés en X. Tri sipha et numérique. 


STO:L: Copte In valeur placée en X à l'adresse spécifiée en L. rt 
Incrémente L 


SUR$: Extrection et/ou justification d'une sous-chaîne. 
TF35: Valide ou invalide l'imprimante. 
VKFYS.: Catalogue des assignations. 


WRTEN: Crée et  cople un fichier de mémoire d'extention sur la 
Cassette. Ce fichier est un "WHTALL® de 1 mémoire d'extention 


Y'N Teste de réponse 8 une question effichée en ALPHA 


/ L 
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AR? Avenue de Paris - QARNQ LL EUUIE 


Téi 11678 47 52 


COMMISSION PARITAIRE DES PUBLICATIONS - 6 JUIL. 1984 


Paris, le 7... 19... 
ET AGENCES DE PRESSE 14, Boulevard de la Madeleine 
en 75008 PARIS 
Secrétariat Tél. : 265.46.69 - 265.46.75 - 265.46.76 





RÉPERENCE À RAPPELER ne À LES 
Monsieur Philippe GUEZ 
Directeur de la publication 
REF. le 28.06.1984 "J.P.C —- Journal du Paris 


Chapter" 


56, rue J.J. Rousseau 
75001 PARIS 


Monsieur le Directeur, 


La Commission paritaire des publications et agences de 
presse a procédé, dans sa derniere seance, au nouvel examen que 
vous avez demande pour "J.P.C —- Journal du Paris Chapter". 


Pour bénéficier du régime économique de la presse, les 
publications doivent remplir toutes les conditions des articles 


72 de l'annexe III du code general des impots et D. 18 du code 
des P.T.T. 


En vertu du 1° de ces articles, elles doivent notamment 
“avoir un caractere d'interet general quant a la diffusion de la 
pensee ….."e 


La commission a considéré que la publication "J.P.C — 
Journal du Paris Chapter" ne pouvait etre regardée comme ayant 
le caractère rappelé ci-dessus, compte tenu du fait qu'elle 
porte exclusivement sur les matériels et standards de la societé 
commerciale Hewlett-Packard et leur emploi. 


En conséquence, la commission a donc décidé de maintenir 
l'avis défavorable qu'elle avait donné le 15 septembre 1983. 


Je vous prie d'agréer, Monsieur le Directeur 
l'expression de ma consideration distinguee. 
Le Secrétaire général 
CS? 


% 


M 





\ 
Jean-Pierrg Warlop 
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PROGRAMMES 


I. MODULATION HORAIRE DE LA TAXATION TELEPHONIQUE 
II. REVEIL MATIN POUR HP41 
III. CREATION D'UN XROM 


LE PETIT THEATRE DES MICROCODES 


IV. ONKEY 


DUR ET MOU 


V. CARTE DE COMMANDE 16 RELAIS 


:Three-dimensional Graph 


TITLE Pounded Bend 


CHRISTIAN JEGOUZO 
PIERRE DAVID 
J. PIERRE TOYRE 


FREDERIC VADEZ 


GABRIEL GIL 


2401! 





d pue 


MHTT : Modulation Horaire de la Taxation Téléphonique 


Depuis le 15 Mai, un nouveau systéme de tarification téléphonique a été 
mis en place par les Télécommunications. Chaque jour de la semaine est découpé 
en trancheshoraires auxquelles sont affectées un coefficient ( 0.35-0.50-0.70-1 ) 
Le coefficient 1 correspond au plein tarif. 

Comment calcule-t-on le prix d'une communication ? Simplement en divisant la 
durée de la comm. en seconde par la valeur du palier de taxe adéquat en seconde. 
( palier de taxe = cadence d'impulsion des taxes ) 
Pour les communications nationales et régionales, les paliers de taxe (PTX) sont 
normalisés et peuvent prendre les valeurs : 12, 24, 45, 72 et 120 s. 
Pour le calcul du coût de la communication, il faut utiliser le PTX vrai 

PTX vrai = PTX normalisé * ( 1/ coefficient ) 


ex : 1 comm. entre Paris et Lyon ; PTX normalisé 12 s. 
donc en tarif rouge (1) vous paierez 1 taxe toutes les 12 secondes. 


LL "nt blanc (0.7) "n nt 1" " " "1 17 it 
"t " bleu (0.5) LL "1 " " "1 11 24 un 
LL 11 nuit (0. 35)" 11 LL "! 1! "! 34 "t 


La taxe de base vaut 0.645 Franc depuis le 1 Mai. 


Le programme que je vous propose, calcule le coût d'une communication 
nationale ou régionale utilisant un palier normalisé, en tenant compte de la 
modulation horaire. Ce calcul s'effectue suivant 2 modes 
- En temps réel : la machine ne vous demande que le PTX normalisé; 
XEQ MHIT — PTX? ptx R/S PRET 
Votre correspondant déccroche R/S Affichage de l'heure 
Fin de la communication R/S Affichage des taxes et du coût 


_- En mode recalcul : pour recalculer ou évaluer le coût d'une comm. 
XEQ HO la HP demande le PTX, l'heure de début et de fin 
de comm. ( DC et FC ) ainsi que la date ( DAT ). 


Dans les 2 cas, la machine tient compte du fait qu'une comm. peut-être à 
cheval sur une heure de changement de tarif. 


Pour connaitre le PTX normalisé, il faut vous reporter à la partie " coût des 
communications à partir de vôtre circonscription " de l'annuaire ( page 13 
pour Paris ). Le trés grand nombre de cas possibles ( combinaisons entre les 
circonscriptions Départ et Arrivée ) ne permet pas de les donner ici. 

A partir de PARIS, si vous composez le 16 le PTX sera de 12 s sauf pour 


16-32XXXXXX = 24 16-44XXXXXX = 24 sauf 

16-37XXXXXX = 24 16-4421 = 45 
16-4424 à 4426 = 45 
16-4453 à 4458 = 45 et 16-4460XXXX = 45 
16-4470 à 4474 = 45 


La machine prend par défaut le PTX 12 afin de vous donner une idée du coût 
maximum de la communication. 


S/pgm HO : recalcul du nombre de taxes 
S/pgm Hi : calcul la durée en secondes avec reg. M (DC) iet reg. N (FC). 


S/pgm H2 : si comm. à cheval sur changement de tarif, calcule les 2 durées. 
S/pgm H3 : affichage du nombre de taxes et du coût. 


JEGOUZO Christian ( P 82 ) 


PS : Lever le drapeau 1 avant exécution s'il s'agit d'un jour férié. 
Aprés utilisation de HO ne pas omettre de remettre à jour la date. 
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M HT T : Modulation Horaire de la Taxation Téléphonique 


LBL'MHTT 
CF 22 
TPTX ? 
PROMPT 
FC? 22 
12 
TPRET 
BEEP 
PROMPT 
TIME 
CLA 
STO M 
RDN 
STO O 
CLKT 
CLOCK 
TIME 
STO N 
GTO 03 
LBL' HO 
DMY 
T PTDCTFC{DAT 
PROMPT 
SETDATE 
RDN 
STO N 
RDN 
STO M 
RDN 
STO O 
RCL N 
LBL 03 
6 
X<=v? 
GTO 06 
XEQ'‘H1 
GTO 35 
LBL 06 
RCL M 
X>Y? 
GTO 01 
XEQ'H2 
XEQ 50 
SF 02 
GTO 35 
LBL 01 
RCL N 
8 
X>Y? 
GTO 02 
RCL M 
X>Y? 
GTO 15 
DATE 
DOW 


oO 


paar 


FS? O1 
CLX 
X=0? 
GTO 02 
60 RDN 
XEQ" H2 
XEQ 10 
SF 02 
GTO 50 
LBL 15 
2153 
X<=Y? 
GTO 16 
DATE 
70 DOW 
FS? 01 
CLX 
X=0? 
GTO 04 
LBL 02 
XEQ'H1 
GTO 50 
LBL 04 
6 
80 X=Y? 
GTO 17 
RCL M 
18 
X<Y? 
GTO 05 
RCL N 
X<=Y? 
GTO 08 
XEQ'H2 
90 XEQ 70 
SF 02 
GTO 10 
LBL 05 
RCL N 
21.3 
X<Y ? 
GTO 07 
XEQ'H1 
GTO 70 
100 LBL 07 
RCL M 
X>Y? 
GTO 16 
XEQ'H2 
XEQ 50 
SF 02 
GTO 70 
LBL 16 
RCL N 
110 23 


a 
= 


120 


130 


140 


150 


160 


X>Y? 


GTO 
RCL 


02 
M 


X<=Y? 


GTO 


XEQ" 


GTO 
LBL 


XEQ' 


XEQ 


09 
H1 
35 
09 
H2 
35 


SF 02 


GTO 
LBL 
RCL 
14 


50 
17 
N 


X<Y? 


GTO 
LBL 


XEQ" 


GTO 
LBL 
RCL 


X>Y? 


GTO 


XEQ" 


XEQ 


11 
08 
Hi 
10 
11 
M 


02 
H2 
50 


SF 02 


LBL 
1 
GTO 
LBL 
.35 
GTO 
LBL 
.7 
GTO 
LBL 
.5 
LBL 
1/X 
RCL 
x 
INT 
P 
FIX 
.49 
+ 
RND 
FS? 


GTO' 


FC? 


GTO' 
XC>Y 


RTN 
LBL 


10 


00 
35 


00 
70 


00 
50 


00 


02 
H3 
00 
H3 


H1 


170 


180 


190 


200 


RCL N 
RCL M 
HMS - 
HR 
3600 
* 


INT 
RTN 
LBL"H2 
RDN 
RCL N 
X<>Y 
STO N 
RDN 
XEQ"H1 
RCL N 
STO M 
RCL Z 
STO N 
RDN 
RDN 
XEQ‘H1 
SF 00 
RTN 
LBL'H3 
FS?C 02 
+ 

CF 00 
CF O1 
CLA 
FIX 0 
ARCL X 
TT 
.645 

x 

FIX 2 
ARCL X 
PROMPT 


205 END 


Ce programme nécessite 
le module TIME. Il 
fonctionne en SIZE 000. 


ouBIq JTIEL PER LE 





SAIdd4 SHNOL LA AHONVNIG 


——_—_— À A 2 ——————————————— 


HÿC HEC Hÿ1 H8 
À ne EEE EEE EEE EEE EEE EE | 
HYC HEC OCHIC H81 H8 





#8°S'Sl NV AUIVAOH NOILVINOON 


H9 HO 


IGINVS 


H9 HO 





SAHANO SaiOr 


28n01 JIIEL +++++ - 
NOTQ JTIEL  ----- 5° 
jinu-n2o1q JIIe] En s 
© 
vu 
a 
d 
en 
(© 
nue À 
€ 
H9 HO 
€ 
Q. 
Re 


Los 


Programme de Réveil-Matin, pour HP 41 





Suite à un SOS angoïssé paru dans JPC: "Qui a réalisé un programme de 
sauvegarde des alarmes ?", je me suis décidé à soumettre à vos yeux 
experts le programme qui m'a réveillé chaque matin, une année durant. 
Tout vient à point à qui sait attendre, me direz-vous, en insinuant que 
je mets du temps à réagir. C'est que, voyez-vous, parler de la chose 
horrible qu'est se lever le matin, m'est assez pénible: je serais plutôt 
du genre à passer ma vie dans un lit. On y est si bien ... Enfin, je ne 
vous apprends rien ! 


En tendons-nous bien: ce programme ne vous sauvegardera pas les alarmes 
sur cartes magnétiques comme WSTS le fait pour les assignations. Ayant 
des besoins bien précis, je me suis débrouillé pour compacter une alarme 
dans un registre, et sauver le tout en XMemory. La sauvegarde sur cartes 
se fait alors sans problèmes. Utilisant un peu (un tout petit petit peu) 
la programmation synthétique, je me suis dit que sauvegarder l'ensemble 
de mes alarmes sur cartes ne serait pas trop superflu... 


Venons-en à ce que fait ce programme: le but est de me réveiller chaque 
matin, ce qui n'est pas chose facile : J'ai un horaire bien précis pour 
la semaine, mais le programme doit ètre suffisamment souple pour accep- 
ter les heures irrégulières, comme ... une grasse matinée jusqu'à llh, 
au lieu d'un réveil en fanfare à 7h : 


Le principe est simple: une alarme, notée Al, est programmée à 4h du 
matin, chaque jour (intervalle de répétition: 24 heures). C'est l'alar- 
me résidente. Chaque nuit, votre 41 interrompra son sommeil, en baillant, 
pour regarder dans 15 registres du fichier "D-ALM" (registres 1 à 15) 
si une alarme exceptionnelle existe pour ce jour-ci. Si rien n'existe, 
on examine le registre n°ÿ, pour trouver l'heure du réveil ce jour de 
la semaine. A l'heure dite, l'alarme déclenche le programme "A2". 
Toutes les quarantes secondes, dix BEEP retentissent. Vous n'avez plus 
qu'à vous cacher la tète sous l'oreiller, car une 41 dans une pièce 
bien silencieuse, le matin, cela fait du bruit ! C'est horrible, je 
vous aurais prévenu ... 


Mais puisque vous tenez tellement à rentrer ce programme, vous désirez 
peut être savoir comment l'utiliser. Patience, on n'est pas pressé ! 
La modification des heures de réveil "normales" est rare, car elle 
correspond à un changement d'emploi du temps, J'ai préféré désolidari- 
ser cette partie, car elle prend de la place dans le programme princi- 
pal, qui réside en permanence en mémoire centrale. Celui-ci, donc, 

avec les labels Al, A2, CALM et WALM doit être en mémoire centrale 

au moins entre 4h du matin, et l'heure du réveil. Je vous conseille 
d'enregistrer ce programme sur cartes, avec un SF ll au préalable. 
Ainsi, vous n'aurez pas à éxécuter GTO "CALM", puis RIN et R/S pour 
enclencher l'alarme Al à 4h du matin, et enregistrer le fichier "D-ALM" 
en mémoire étendue. Notons au passage que le programme vous demande de 
passer une piste de carte magnétique, qui correspond à ce fichier, 
seulement s'il n'existe pas déjà en mémoire. Une fois que le programme 
s'arrête, le fichier existe, et l'alarme résidente est enclenchée. Vous 
pouvez alors vaquer à vos tâches habituelles. 
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Si vous désirez visualiser vos alarmes, utilisez XEQ "CALM" (catalogue 
des alarmes). Vous voyez alors: "nn: JJ.MM-hh:mm" (je vous conseille 
d'être en mode IMY). nn est le numéro de l'alarme (entre 1 et 15), JJ 
est le jour, et MM le mois de l'alarme, hh:mm est l'heure et la minu- 
te où la sonnerie retentira. Si vous désirez passer à l'alarme suivante, 
tapez R/S, à l'alarme précédente, tapez CHS, R/S (sans introduire de 
données). Si vous voulez entrer une nouvelle alarme, positionnez-vous 
sur un emplacement vide (JJ=MM=hh=mm=ÿ), et tapez la sous la forme 
JJMM,hhmm, puis R/S. 

Quand vous avez fini de rentrer vos alarmes, faîtes WALM pour les 

écrire sur carte magnétique. Si votre machine est accélérée, n'oubliez 
pas de la repasser en vitesse lente. Par conception, vous êtes limité 
à quinze alarmes, ce qui devrait être suffisant. Si par hasard; vous 
vouliez augmenter ce nombre, il faudrait modifier la taille du fichier. 
Pour l'étendre à 31 alarmes, par exemple, mettez 32 à la ligne 19, et à 
la ligne 156, au lieu de 16. 

Une fois que l'alarme retentit, trois solutions s'offrent à vous: jeter 
votre 41 par la fenètre, ce que je ne vous conseille pas, vu le prix de 
l'engin, ou essayer de vous rendormir toutes les quarante secondes, ou 
encore vous concentrer pour tenter d'arrêter cette saleté de cochonnerie 
de ... de 41. De toute manières, il faudra bien que vous en arriviez là, 
surtout si elle est branchée sur le chargeur ! Notez le FS? 49 TONE 9 
qui vous permettra de savoir quand vos batteries se sentiront un peu 
faibles. Vous avez peut-être remarqué le TNE 9 TNE @ TONE 9, au 

début de la série des dix Beeps. Si vous arrêtez le monstre pendant 
cette période, vous éviterez la crise de nerf. Autrement, il faudra 

que vous éxécutiez ALMCAT, suivi de Shift C, en priant pour que l'alarme 
ne se déclenche pas en même temps. Diabolique, n'est ce pas ? Je vous 
avais prévenu: me réveiller n'est pas chose facile : 


Passons maintenant au programme RM, pompeusement baptisé "Editeur des 
heures de réveil-matin par défaut". Pour les sept jours de la semaine, 
je dois définir une heure de réveil. Il y a sept octets dans un regis- 
tre. Conclusion, je stocke tout cela dans le seul registre numéro ÿ 

du fichier "“D-ALM". L'utilisation est semblable à celle de "CALM'". 
Pour passer au jour suivant: R/S, au jour précédent: CHS R/S. Pour 
rentrer une heure: sous la forme hh,mm puis R/S. Attention, cependant, 
la précision est limitée à 5 minutes: si vous entrez 8h43, cela sera 
compris comme 8h40. D'autre part, il n'y a aucune vérification, alors 
ne rentrez pas 8h80, par exemple. Ne mettez pas d'heure inférieure à 

4h ou supérieure à 15h55. Rentrez @ si vous voulez faire la grasse 
matinée (le dimanche, par exemple). Et surtout, faîtes R/S, car vous 
restez positionné sur le jour que vous avez modifié. 

Pour la toute première éxécution de "RM", remplissez le registre ÿ 

avec quelque chose, mais ne laissez pas traîner d'octets nuls. Par 
exemple: ‘“D-ALM" CLx, SEEKPTA, -9,999999999 E-99, SAVEX, puis XEQ "RM". 


Voilà, j'estime vous en avoir assez dit. Si vous avez des questions à 
poser sur le programme ou son utilisation, examinez d'abord le listage 
ci-joint. Si vraiment vous voulez des renseignements plus précis, 
écrivez-moi. Mais surtout, je vous en prie, ne me téléphonez pas entre 
20h le soir, et 1lh le matin : 


Allez, dormez bien : 
Pierre DAVID 
33 Bld St Martin 
75003 PARIS 


JE, 
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29 
30 
S1 
32 


fFFA Î "” 
TIME 

4 

SF 10 
X<=Y? 
CF 10 
SIGN 
DATE 
FC? 10 
XCTY 
FC?C 10 
DATE+ 
24 

XCEY 

4 
XYZALM 
SIZE”? 
"D—-ALM" 
16 

SF 25 
CRFLD 
FC?C 25 
RTN 
PSIZE 
“+ D-ALM" 
AVIEW 
RDTA 
CLA 
SAVER 
X<2Y 
PSIZE 
RTN 


3SLBE "CALM" 


34 
35 
36 


E 
18 D-ALM " 
SEEKPTA 


37/LBL 10 


38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 


530 


CLA 
FIX 0 
RELPT 
ADATE 
FIX 2 
GETX 
FRC 
LASTX 
INT 
"+ : u 
Ez 
/ 
ADATE 
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Si "h —" 
J2 X<2>Y 
93 LASTX 
04 * 

33 ATIME 
56 X=07 
37 31 

58 CF 22 
97 PROMPT 
689 X<07? 
61 GTQO 11 
62 FC? 22 
683 GTO 10 
64 RELPT 
65 E 

68 — 

67 SEEKPT 
68 X<5Y 
69 SAVEX 
79 GTO 19 
71LBL 1i 
72 ROLPT 
73 2 

74 — 

75 SEEKPFT 
78 GTO 19 


77LBL "A1" 
78 "D-ALM" 


79 E 


89 SEEKPTA 


81 SF 25 
82 DATE 
83 E2 

84 * 

95 INT 
S&LBL 12 
87 GETX 
88 INT 

89 FC? 25 
90 GTO 13 
91 X£5FY 
92 XY? 

5 GTO 12 
94 RCLFT 
95 DSE X 
76 SEEKPT 
97 CLX 
98 SAVEX 
99 LASTX 

100 FRC 


101 


E2 


102 * 


1035 


GTO 14 


104LHL 13 


105 
106 
107 
108 
109 
110 
11i 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 


CLX 
SEEKPT 
GETX 
STO € 
DATE 
DOW 
AROT 


TT 
25393 


ATOX 
X=Y? 
OFF 
STO Y 
1é 
MOD 
STO Z 
X£5 L 
# 

INT 
XE2Y 
20 

/ 

+ 


127LBL 14 


128 
129 
130 
131 
152 
1353 
134 


135 


156LEL 


137 
138 
139 
140 
14i 
142 
143 
144 
145 
146 


E-3 
HMS- 
ABS 
CLST 
LASTX 
“fra2" 
XYZALM 
OFF 


” FTAZ # 
CEST 
TIME 
4 E-3 
HMS+ 
TONE 9 
TONE © 
TONE 9 
XYZALM 
E-2 


147LBL 09 


148 
149 
150 


BEEF 


F5? 49 


TONE 9 


5 AZ " 


151 
152 
193 


1SG x 
GTO 09 
OFF 


1S54LBL "WALM" 


153 
156 
157 
158 
159 
160 
161 
162 
1863 
164 
185 


SIZE? 
16 
PSIZE 
X<5Y 
"D-ALM" 
GETR 

"T D-ALM" 
AVIEW 
WDTA 
PSIZE 
END 


O1LBL RM" 26e MOD oi # 76 CLX 101 "VEN" 


02 "D-ALM" 27 STO Z 52 X<>Y 77 SEEFFT 102 RTN 
03 CLX 28 X<> L 53 FRC 78 ROL [L 103LBL 06 
04 SEEKPFTA 29 / 54 20 79 SAVEX 104 "San" 
05 STO 00 30 INT 55 * 80 GTO 10 105 .END. 
06 FIX ? 31 X<>Y 56 INT 8iLBL 11 

O7LBL 10 52 20 57 + 82 SIGN 

08 CLX 35 / 58 , 83 ST+ 00 

09 SEEKFT 34 + 59 SEEKFT 84 GTO 10 

10 GETX 35 ATIME 60 GETX 85SLEL 00 

11 CLA 36 GTO 13 61 CLA 86 "DIM" 

12 STO LC 3S7LEL 14 2 STO [LC 87 RTN 

13 RCL 00 38 " REFOS..." 63 RDN g8LBL O1 

14 7 3S9LBL 13 64 SEEKPT 89 "LUN" 

15 MOD 40 CF 22 65 RDN 90 RTN 

16 STO 00 41 PROMFT 66 RCL 00 91LBL 07 

17 AROT 42 X<0? 67 AROT 92 "MAR" 

18 255 43 GTO 1i 68 ATOX 93 RTN 

19 ATOX 44 FC? 22 67 X<> Z 94LEL 03 

20 XEQ IND 7 45 GTO 11 70 XTOA 95 "MER" 

Z1 hs  " 48 X=07? 71 XC>Y 96 RTN 

22 X=Y? 47 15,75 72 E Q7LBL O4 

25 GTO 14 48 STD Y 73 + 98 "JEU" 

24 STO Y AG INT 74 CHS5 99 RIN 

25 16 50 ié6 75 AROT 100LBL 05 
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Denis CASTELAIN 
LA NEVILLE VAULT 
60112 MILLY SUR THERAIN 
Tel. (4) 4822315 


PPC PC 56 


JAE 
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e 


Possesseur d'une HP41CV depuis 1982, j'aborde 
seulement maintenant la programmation synthétique. 


Comme guide, je disposede “AU FOND DE LA 41 
de JD DODIN, et naturellement du merveilleux JPC. J'utilise 
le BG pour générer les fonctions et chaines synthétiques. 


Intéressé par l'assignation des fonctions synt. 
j'ai introduit le PGM "KA" de la page 47 de l'ouvrage ci- 
gessus. Celuirei s'obstine a m'assigner des XROM 03,46 à 
À impor té quét fé tone mais le plus souvent à une touche 

déjà affectée ( au BG par exemple ). 


Je ne suis pas sur d'avoir généré correctement 
la ligne 05 "# , dont le code est Fi FO. Je suis parvenu à 
générer par erreur FO F1, mais impossible de faire Fi FO, 
qui se traduit par deux lignes de programme nulles. J'ai 


donc remplacé la ligne O5 par 241 XTOA 240 XTOA. Mais ça 
ne marche toujour pase 


J' ai alors découvert l'article de À LOISEL dans 
le JPC volume 1 N° 5, page 19; mais je bute toujours devant 
la même instruction, qui figure au pas 108 ( mn }), 


De plus, mon PGM se plante au pas 101, pour ressur- 
gir à un pas 441 LBL I , et naviguer (en sous-marin ?) à des 
LBL numérotés 429, 419, et autre 434... À noter des temps 
de réflexion de près d'une minute entre les XEQ xx et le 
LBL correspondant. 


La durée de fonctionnement est d'environ 18 minutes 
( imprimante connectée ) puis affichage de NONEXISTANT en 
mode PGM. Seul le RESET est alors possible, et se solde par 
un MEMORY LOST. 


Ci-joint listage d'execution. 


Par ailleurs , quelle bonne âme aura l'amabilité 
de me faire une photocopie des pages 29, 32 et 36, ainsi que 
de la figure 13 du livre de JD DODIN sus cité. 


D' avance merci, et ne me laissez pas mourir idiot. 


Denis 


46eLBL °SA" 
CEA 

x) ê 

159.68  ##+ 
XTOA 

RON 

119.88  *#*4 
#TOA 

x 

A.84 #+* 
KOY 

11.88  *#4 
"7" 

PASK 

INT 

11.88  ##+# 
.3 
#C=1? 

CLX 

0.88  +#+ 
11.88  *#4 
ABS 

11.88  *xx 
ENTERT 

“gl* 

6 

1.83  ##* 
INT 

1.88  ##* 


LE AA  #kt 
ABS 

6,88 #k* 

x47 

SIGH 

1.88 #KE 


18.48 *k# 
16 


168.84 +44 
133 

HOD 

1.84 Ék* 
#TOA 

x [ 

B.67  +#* 
40) 

4.48 #HE 
#o 

1.80  #tx 
xTOA 

KO 

9.08-39 +++ 
ROY 

4.68  +##+ 


ABS 
fin  ##+ 


86+LBL Ai 
*EG 42 
93+L6L 82 
77 

REG 63 


182+LEL 43 

*O [ 

6.88 #kX 
#O € 

7,:8+#{< #khkt 


44eLBL LC 
RTH 

#2 [HD L 
“alr" 


429+LBL 93 

*O ! 

8.18 +++ 
RO) € 

4.88 kk 


419eLBL © 
RTN 
*EQ f4 


423+LBL 84 
#0) [ 

“glr" kkx 
“her 

Ko [ 

4.88 ##* 


#EG 45 


4324LBL 65 
a 
B.40+78 #k* 


434+LBL 86 
"+444" 

EC) 

8.88 #kx 
. EHI. 

x=? 

x=Y? 

$E8 86 


4344LBL 66 
"++++" 

KO À 

B.Aû  ++s 
END. 

“es 

KEG 46 


4326LBL 46 
“hé++" 

EE 

8.86 *#* 
.EHE. 


428+4LBL 85 
#@ [ 

8.84 +k4 
438eLBL 86 
"+++" 

HO 

-0,12  #*## 
. END, 

KER 84 


415+LBL &4 
#0 

8.0  ++x 
“he 

xt? [ 

19.88  +** 


REG 95 


438+LBL 85 
kC? [ 
B.88+74 #44 


434+LBL 66 
"+444" 

#CD 

8.88 +++ 
END. 

A=Ÿ? 

R=Y? 

REG 86 


434+LBL 86 
“+++” 

KO 

4.86 +t* 
«END. 

"++" 

REG 86 


432+LBL 86 
"+++" 

RON 

18.08 +++ 
. END. 


4264LBL 45 
KO [ 

B.0D  +#+ 
43BLEL 66 
"+4++" 

KO 

-à,88 *kk* 
.EHD. 

KEQ 42 


465+LBL 82 


“yuu” 
#EG 43 


HE 


412+LBL 83 

#2 L 

8.88 #k* 
Ko) © 

8.18 *#x 
448elBL [ 

RTH 

*<> IHDL 

“ *ispl* F4 


433+LBL 63 
KO [ 

“8.88  *#* 
Ho c 

8.848  +xx 


4334LBL [ 
RTH 

156 L 
FC?C 41 
GTQ 41 


NOHERISTERT 


“PLANTAGE" en node PRGN. 
Toutes les touches sont 
inoperantes, Un "RESET* 


se solde par un 
“HEHORY LOST" 
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JEAN PIERRE TOYRE, 

2, Résidence du Lac, 
94470 BOISSY St LEGER 
PPC P C n° 131. 


PE 


Messieurs, 


Venant d'adherer ce mois au club PPC PARIS, et étant assez 
néophyte dans la connaissance de la HP41C, j'ai donc lu avec intéret 
votre journal n°14. 


Puisque vous avez l'intention de modifier la présentation et le 
contenu de celui-ci, je me permet de vous faire deux suggestions. 


1°) La création d'une rubrique de vulgarisation de la 
HP41C/V/X sous la forme de fiches 210x297 


EXPLIQUEES CLATREMENT, EN DECOMPOSANT LES OPERATIONS. 
2 2 22 JE ERATIONS 


Cette rubrique pouvant aborderdes sujets comme: 


— La programmation synthétique; 

- CRIC ou autre BG; 

- La création des lignes synth- 
étiques dans les programmes ; 

— Les XROM; 

- Les microcodes; 

— L'explication de certaines 
fonctions; 

— Les astuces de programmation; 


En fait, tout ce qui fait le charme et l'attrait de la HP41. Cette 
rubrique, entre autre, pouvant servir de base et de lien à ceux qui 


seraient susceptibles de donner des cours d'initiation aux débutants. 


2°) La création d'un annuaire des adhérants, bien sur 
si tous les membres sont d'accord. 


Ceci pouvant être discuté à l'assemblée générale de septembre. 


AMICALEMENT 
JEAN PIERRE. 
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716 


n 


ée. 
JPE 


fich 








instruction af 





er | 


ramme Sur le 1er RCL IND 16, revenir 


ter de CRIC. 


Revenir en mode programme et effac 


s 


39) _UT/LISER LE. CAIC 


onné 1 
exéCU 





s avoir positi 


rè 
mode calcul et 





7. Eliminer les instructions 1 et RCL O0 pour ne conserver que la fonction 


________ désirée. 





2 hp 
en 









CALCULATEUR HP41C / CV: = 
A FFECTATION DES FONCTIONS EN USER": 








CRE) SE) SP 2 di ds. 
Sr 
m4 Eron] soburom | sa free | s4feren | ysfrxn 
D a à 
Poe pee) hd 2 st 
GS een | er |; 25/rom 
pen] er] Len] een | 
ARC Re ee 
D |srferen UT] saluer] ssfraon UT] séferen | séfxzon 
0 Der RS RO sp | : 
O1 Beer raon pren 
CR SE SE 2 
galrrem À eofrnen ] csfeeer | fer 
Bern TO ee 


it 


Û 


2 2 2 2 
Cj 51lxAo" s2l"ron 53 2, 
T I T Z 


Ê 
b 


61 XAROM 62 ROM 


0) 
& 


: x x x 
0 a! |à è 
? | là 2 


N 
N 


XROM 


2 2 2 
mm, 71 |XAOM 72 73 74 L'RON 
(:) z I z I 


XARO"M 


V 
D 


© 
S 
x 
à 
0 
? 
Q 
N 
x 
à 
û 
+ 
© 
G 


Y 


H 
œ 
HN à 


| 

| 

| 

| 

| 

_ 
par 
ee — 
ren 

peer —_— 
PRES 
pren 


D = odressog e cirect 
2 in dire cf 


GE 
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CODAGE DES CHIFFRES: 


DECIMAL HEXADECIMAL BINAIRE 


ÿ à D 0 0 © Exemples: 

1 1 D D D1 

2 2 DD10 DEC. HEXA. HEXA, codé BIN. 
3 3 ÿ D 11 

A 4 9100 179 A — À 1919 - 1919 
5 5 d #19#1 2 ÿ - 2 D0PD - 0919 
6 6 i #11% 11 ÿ -B D6DD - 1911 
7 7 g: DELA 

8 8 i 1890 

9 9 4 161 octet 

19 A 1919 

11 B 1#11 

12 C 1199 

13 D 1191 

14 E 111% 

15 F 1111 


< 


T 
He 
(as 


1°) CONVERSION HEXADECIMAL EN DECIMAL: D89B 


D 8 9 B 
| sit. Tire AÏ 
DE Ses 20 TGS (144 
8 x 16 x 16 = 8 x256 = 2048 
13 x16 x 16 x 16 =13 x4096= 53248 
55451 


29) CONVERSION DECIMAL EN HEXADECIMAL: 8593 





8593 / 4096 = 2,01 


4096 ee 8192 
| 


E—— 
8593 - 8192 = |401 / 256 = 1,57 
256 x = 256 
4 
401 —- 256 = 1145 ;/ 16 = 9,06 
16 x = 144 
g— =) 
145 — 144 = 





soit en hexadécimal : 2 1 
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Frédéric Vadez 
PPC=PC 79 
2 Rue du Colombier 9 
94200 Ivry 
Chers emis ; 

il me semble entendre vos plaintes d'ici s"encore des programmes 
en_microcode pour CX , et les autres 1... 

Aujourd'hui , j'ai pensé à tous les prolétaires de la HP 41 x: QU 
ne disposent que d'une pavre petite HP 41 C(V) et vous propose une 
nouvelle fonction microcode qui est , tenez vous bien s Utilisable 
avec tous les modèles de HP41 et de plus entièrement RELOGEABLE 1! 
Vous pouvez Gonc l'ajouter à vos EPROM et MLDL personnels sens 
aucune modificaticr. 

Cette fonction s'appelte "MONKEY" et représente à mon evis ce 
que l'on peut faire de mieux pour gèrer le clavier de la calcula- 
trice par programme , (si vous n'êtes pas d'accord . envoyez moi 
vos suggestions et vos routines , elles seront très bien accueillies ) 

Plutêt que de me lencer dens de longues explications », je vous 
donne un exemple d'utilisation. 


Supposons qu'à un endroit dans un programme vous deviez faire un 
branchement si le touche À est enfoncée , et un autre branchement 
si le touche B est enfoncée. 

Séquence classique : 

LEL O0, GETKEY , SF 25 , GTO IND X , FC? 25 , GTO 00 

et. par le suite , on place les labels 41 et 42, 

Cette séquence est longue à éxécuter car les GTO IND ne peuvent 
bien entendu pas être compilés , de plus il ne faut pas employer 
de labels dont le numéro puisse être adressé par le GTO IND X , 

ce qui fait beaucoup de limitations 


C'est alors qu'entre en scêne le microcode et la fonction"ONKEY" :« 
avec cette fonction on écrit tout simplement : 
ONKEY 
tan 
GTO oi 
np" 
GTO 02 
suite ... 
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Vous aurez tous compris , sur cet exemple ,; comment utiliser MONKEY" , 
Une précision : "ONKEY" attend plus ou moins longtemps en fonction 
du contenu du registre X : vous devez placer en X le temps en seconde 
que devra attendre "MONKEY". Si le temps est précédé d'un signe moïns 
il n'y aura pas attente sous pression de la touche ( sauf pour les 
touches ON et R/S ). 

Grêce à MONKEY" , on peut assigner des commandes d'un programme 
à toutes les touches de la machine , shiftées ou non . Comme on ne 
peut introduire aucun caractère en mode ALPHA avec certaines touches 
j'utilise un code que voici 2 


TOUCHE CODE HEXA 
ON 07 
USER 05 
PRGM O4 
ALPHA 03 
S5T 01 

= 02 
R/S 06 


Pour spécifier que les touches doivent être shiftées , rajoutez 10h 
au code donné précédemment « 


Si , au bout du temps spécifié en X , aucune touche n'est frappée , 
le machine saute la “table de branchement'"qui suit MONKEY" ( 
Le table de branchement a obligatoirement le forme suïvante : 
ME lettre correspondant à une touche 
inetruction ( une seule ligne ) 
"M" autre lettre 
instruction 
“x! 


© 
© 


D HU EH r H 


wxn" dernière lettre 
demière instruction 


FIN: instruction différente d'une chaïne ALPHA de 1 caractère. 


J'espère avoir été suffisament claïr dans ma description pour vous 
convaincre du caractère indispensable de cette routine « 

T1 me faut préciser que j'aurais mis beaucoup plus de temps à mettre 
au point cette routine si je n'avais eu en possession le VASM ,en 
vente au club ,et qui est véritablement 1a référence indispensable 
de tout microcodeur »; acharné où débutant ( l'un n'excluant pas l'aytre 
bien entendu ) 
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Maintenant , voici quelques unes des routines de la ROM 
par MONKEY" s 


appelées 


0098 boucle sur elle même tant que'une touche est enfoncée 
2CFO vide l'afficheur ( qui reste sélectionné ) 

00D7 rend en C(6:3) l'adresse microcode du mot suivant. 
14D8 vérifie que le nombre contenu en C ne représente pas 


une chaîne ALPHA , affiche ALPHA DATA si c'en est une. 

282D affiche DATA ERROR 

075C réinitialise les indicateurs de l'afficheur en fonction 
du registre d 

2952 rend en 4A(3:0) et en C(3:0) l'adresse pointée par le 
registre b sous la forme MM ( c-à-d. BRRR où RRR est 
le registre pointé et B le double du numéro de l'octet 
pointé dans le registre RRR ) 

29CF décrémente le pointeur contenu en A(3:0) sous forme 
MM de sorte à pointer l'octet suivant en mémoire programme 

29B0 ramène en C(X) le mot pointé par A(3:0) . (ce n'est pes 
forcément un octet car en peut adresser un mot dans une 
ROM utiliseteur où les mots font 10 bits ) 

2337 replace en b l'adresse MM contenue en A(3:0) après 1! 
décodée ( MM = forme habituelle ) 

2950 sélectionne le CHIP © puis continue en 2952 

2AF9 saute la ligne de progremme pointée (pointe 1a ligne 
suivante ) 

232F si un programme s'éxécute (513=-1) » CSt identique à 2337 
sinon place FFF enexposant du registre 15(e) » ce qui 
indique qu'il faut calculer le numéro de ligne . 


avoir 


Voilà c'est tout pour aujourd'hui , le mois prochain ( du moins 
je l'espère ! ) , je vous montrerai comment redéfinir le clavier en mode 
ALPHA et USER pour pouvoir introduire facilement tous les caractères 
possibles 

J'espère que toutes les routines que je vous propose vous interesse 
et si vous pensez à d' autres fonctions microcodes d'utilité majeure , 
écrivez donc toutes vos idées , le journal deviendrait einsi bezucoup 
plus riche et tous ceux qui menquent d'idées ( moi ç& va merci !! ) 
pourrait eux aussi montrer leur talent de programmeur , 


en espérant lire bientôt vos nombreuses Suggestions , je vous 
souhaite ne heureuse résolution d°... Horribles Problèmes . 
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F6FB 999 Ÿ 

F6FC 085 E 

F6FD B8B K 

F6FE QBE K 

F6FF O0F 0 

F7Q8 2CC » 291351 

F781 3n8  RTN NC 

F782 8F8 F C=REGN 3 (X) 
F783 361 à 

F784 058 + COSUB 1406 
F785 244 d S9= 8 
F?û6 2FE E 2088 5 
F707 013 5 GONC  ++82 
F?8 2481 S9= 1 
F709 226 & C=C+1 X 


F78A 18E N A=C 

F78B 276 + C=C-1 RS 
F?8C 276 © C=C-1 ÀS 
F78D 885 5 


F78E @n3 # GOLC 2821 
F?8F 309 « 

F718 AC \ GOSUB 47F6 
F711 178 F CEREGN 5 CH) 
F712 3D8 M CST EX 

F713 384 D Sû= 6 
F?14 284 D 57= 6 
F715 3D8 F CST EX 

F716 28€ L 76721 

F717 813 S GONC  ++Bê 
F718 226 & C=C+i À 
F719 2F4 + DATA=É 

FFIR 846 + C=E à 
F71B 3F8 + PFAD=C 

F71C 136 8 LDI 

FFiD 3E8 D CON 1888 
prit are + BC EX À 
Fi vf, AC EX 


m.-- 
F -: 










GOSUB 1415 
+ SETHES 
Fé3 16€ N A=C EH 
Fred 356 + 2AEB XS 
F7e5 037 # GÜC *+Bé 
F7e6 138 @ LI 
F7e7 083 C COK ABA3 
Fre8 3806 F 2AKC À 
F729 133 3 GONC +#+26 
F?2h QE . AC EX 
F7èB 38H 
F?2C 086 H GOSUB 6 
F7ep 186 F A=C à 
ñ 
à 


ri 
F7 
té. À 
2: 
F7 
FÈ 


ë 
723 18 
Ë 


F72E 326 & 7 
F72F 203 c GONC 
F738 138 6 LDI 
F731 09E ? CON 815 
F732 106 & A=A-i À 
F733 16F G GOC #42! 
F734 3CC » CHE KE 
F735 627 ‘ GOT  ++84 
736 266 6 C=C-1 À 
F737 3EB  GONC +-83 
738 3C3 c GONC #7 
Fr39 QiA 2 A8 À 


Frat 178 6 Ati À 
F736 06 F R=A#i À 
F73C Q4E E C=8 
F735 224  C=KEYS 
FFE 330 € RER 
F73F 154 6 A=B+C 


Fidi vin à PT= 3 
F74i 351 # 

F74: 888 & GOSUB A8? 
1743 21 Z C=A+#C À 
F744 1E8 + GOTOC 

F745 088 & NOP 

F746 @18 P LC @ 
F747 05B = GONC ++8B 
F748 858 H LE Î 
F749 @4B = GONC  ++à9 
F74h 498 PF LC ë 
F74B 03B ; GONC ++87 


F74C 3F3 c GONC  -:-82 
F74h 8D8 + LC 
F74E 623 & GONC  x+f4 
F74F 8BS 5 

F?58 842 * GDLONG 2 
F751 118 P LE 4 
F752 33C € RER 1 
F753 18E N A=C 
F754 138 @ LI 

F755 824 CON  GG3ë 
F756 366 + 7HC à 
F757 097 H GOT  +*+12 
F758 309 a 

F759 81C x GOSUB 67F6 
F754 178 F C=REGH 5 CH) 
F75B 280 L ?267=i 

F25C 828 + GONC +485 
F75D 284 D $7=  @ 
F75E 3D8 M CST EX 

F75F 284 D $7= 8 
F768 823 # GONC ++84 
F?61 288 H 57= Î 
F762 3D8 M CST EX 

F763 288 H S7= 1 
F764 308 M CST EX 

F765 2F8 + DATA=C 

F766 261 a 

F767 688 E GOSUB G898 
F768 243 cç GONC  +-38 
F769 138 & LDI 

Frèr 256 6 CON 8128 
F76B 366 © ARC 
F76C G2F / GOC #+05 
F76D 244 d 53= 8 
F76E 138 @ LOI 

F?6F 087 G COH 8867 
F?78 183 C GONC  #+26 
F771 136 8 LE 

Fire 378 + CON 88538 
F773 366 + AC 
F7r4 826 : GO +485 
F775 244 d $9= 6 
F776 138 6 LBI 

F777 086 F CON GGBE 
F778 003 ç GONC  #+18 
F779 136 À LDI 

Fr7n 842 Et CON Gé 
ER A 
F77C 2FC p RCR 13 
F77D 386 F 7AC à 
FI7E 837 À GOC ++ 


. F77F IC X PT= 


Î 
Frg8 062 b C=C-i FT 
F8 1C6 + A=h-C À 
F762 396 FA SR à 
F783 073 c GONC #+#8E 
F784 280 L 75721 


F?85 023 # GONC  +#+84 


ir udée C=8  X 
F786 138 &@ LDI FYCE 266 © C=C-1 %X 
F?87 088 & CON 0128 F?CC 3 
mn. E8 F REGN=C 15e) 
F788 146 6 A=F  & 
F?CD P£E E AB EX HN 
F789 138 8 LDI F?CE 325 = 
a 5 : ou _ F?CF 8A4 #& GOSUB 29CF 
F718 ?Ci a 


F78C 370 » RER 12 


F78D 296 F C=A4C X F?D1 GA4 & GOSUB 29B8 


F7D2 056 € C=@  XS 


F78E 370 » RER 12 £ 

F78F 338 6 CXISA ie . : . o ; 

F798 Bn6 & AC EX x F715 8BB & C=N 

el 138 & LDI F7D6 366 e MAC X 
818 P CON 8816 F7D7 8E3 © GONC 

F793 386 F AC X F7D8 G6E : fB E Le 

F794 033 3 CONC +186 F709 @DD + nn 

F?95 280 L ?57=1 C 

F296 023 & SINC +484 as di | ie 

F797 138 © D : F7DC 6A4 $ COSUB 2958 

F798 @14 F CON  G@ié F7DD 35 € 

F799 146 e A=A+C X 

F9 Gn6 & AC EX X ne 

F79B @78 + N=C F7E8 GBC L COSUE 272F 

F?9C 171 a F7E1 149 a 

F?9D 810 \ COSUB B7SC & CnS 

F?9E ?4C p ?759=1 ee … : Re 

F79F 261 à gn4 & C0S 

F?A8 698 6 COSUE 449 ae - AE 

F7A1 149 a $ 


FPA2 A4 £ COSUE 2952 ose 


703 331 = 
Del 1 FPES 2E6 © ?Chi 


dora te F7E9 303 c CONC  +-%6 
F7R6 BR4 $ COSUE  29E8 Re 
F707 056 9 CB  KS BEC à 
F7A8 Æ6 +208 % F7EC 138 6 LI 

F7A9 303 c CONC  +-f6 F7ED 6Fi a CON 6241 
FAR Q6E 5 AB EX F7EE 366 0 AE # 
F?AE ARE & AC EX K F?EF 301 à 


F?AC 138 & LDI FPF8 BUS C GO 
F7AL Wei 3 CON 8241 ae ; re : 
FFE 366 + HEC pers 
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HE 


Chers amis, 


J'envoie aujourd'hui un schéma d'une carte que j'ai réalisé pour 
José Pidival (P23 T72). Cette carte, permet de commander 16 relais, 
indépendament les uns des autres. Cette carte se relie au CONVERTER 
(HP82166A). Le principe est le suivant: 


Lorsque lors d'un OUTA, une information est envoyée au CONVERTER, 
celui-ci envoie sur les lignes DAO —> DA7 l'information et le signal 
de validation sur la broche "DAVO". J'utilise les signaux DAO - DA1 - 
DA2 - DA3 (soit 4 bits) pour choisir le relais à actionner. il y 
a donc 16 possibilitées (9 à 15). La ligne DA7 contient l'état que doit 
prendre le relais (9 = ouvert; 1 = fermé). Vous avez saisi! Pour fermer 
le relais 9 il faut envoyer DA7 = 1, DAO = DA1 = DA2 = DA3 = ÿ. Une 
mémorisation doit être réalisée grâce à des bascules D. Les bits DA4; 
DAS; DA6 ne sont pas utilisés. (En fait, DA4 est à 1 si DA7 est à @). 
En effet, éteignez le relais 9, donc : DA7 = ® 

DA3 = DA2 = DA1 = DAŸÿ = ÿ. 
Vous envoyez donc l'octet #9 (NULL). Mais, en alpha, l'octet nul ne peut 
pas être l'octet le plus à gauche. C'est pourquoi, j'envoie: 
DA4 = 1 — Q001 0000 = 16 


Es relais ÿ 


mise à ÿ 
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Le module Forth/Assembleur pour le HP 71B 





Complément naturel du HP 71B, ce module devrait être disponible 
en magazin vers septembre 1984. Le prix, selon mes sources, se 
gituerait entre 1600 et 1800 FF. Pour cette somme, vous aurez 
deux nouveaux langages, un éditeur de textes ... et un manuel 
d'utilisation dont le moins qu'on puisse dire est qu'il est suc- 
cint ! D'ailleurs, HP nous prévient dès le début : " Ce manuel 
suppose que vous connaissez Forth ou un langage d'assemblage ". 
Soyons honnête: c'est un manuel pour l'utilisation du module 
(du genre du manuel de référence du Basic) et non un manuel 
d'apprentissage d'un quelconque langage. De toute manière , le 
domaine est tellement vaste ... Reste que l'Assembleur — et 
dans une moindre mesure le Forth —- est inutilisable sans la 
documentation technique : les fameux "IDS". 


Quant à l'éditeur, il ne faut pas vous attendre à du formattage, 
ou du mailing (envoi de lettres personnalisées par exemple). 

Ce sera réservé au module "Editeur de texte". Mais celui dont 
je vous parle aujourd'hui permet déjà de belles prouesses . 

Si rentrer du texte, en insérer ou en supprimer est chose cou- 
rante, la recherche d'une chaîne ou son remplacement par une au- 
tre l'est déjà moins. Bouger des paragraphes ou les dupiiquer, 
au besoin avec un fichier extérieur, facilite énormément la 
programmation en Forth ou en Assembleur, C'est d'ailleurs là 

sa seule vocation. Cet éditeur fera un excellent travail, si 
l'on s'en tient à ces limites. Il est écrit en Basic, sous 
forme de sous-programme (SUB), et prend environ 6 Ko de mémoire 
morte. Il n'est pas pleine page, pour l'utilisation avec l'in- 
terface vidéo, mais il y a moyen de contourner l'obstacle: Il 

y a un fichier "EDKEYS", en ROM, qui contient les assignations 
nécessaires à son bon fonctionnement. Si ce fichier est reco- 
pié en mémoire centrale, puis modifié (touches t et ), vous 
avez votre éditeur pleine page : Notons encore que les messages 
d'erreurs peuvent ètre traduits en français, ainsi que les 
commandes, à l'instar des messages d'erreurs du Forth ou de 
l'Assembleur. 

Mais l'éditeur, ce n'est pas seulement un programme. Il 

contient des mots-clef Basic qui se révelent indispensables 

à qui veut traiter des fichier TEXT. Des fonctions comme 

DELETE# , qui supprime un enregistrement, INSERT# qui en insère 
un, REPLACE# (sans commentaire) sont très utiles, et comblent 
les quelques lacunes du Basic standard. FILESZR donne la taille 
du fichier en enregistrements, et SEARCH y cherche une chaîne. 
Cette fonction ne nécessite pas moins de 5 paramètres, entre 
parenthèses. 

Et pour l'utilisation avec le module HP-IL, nous avons la fonction 
KEYBOARD IS. En pratique, il faudra l'interface HP-IL/RS 232 
(3000 à 4000 FF). Plus encore 3000 FF au minimum pour utiliser 
un clavier extermme. Génial, mais cher ... 
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Et pour créer vos propres fonctions, ou programmes binaires, 
vous avez l'Assembleur. Il permet de faire des mots-clefs Basic 
(fichiers Lex), des programmes Binaires (fichiers Bin), ou des 
primitives Forth (compilables ou,immédiates). Sans IDS, il est 
difficile d'exploiter les quelques 64 Ko de Rom déjà écrits, 
d'utiliser l'affichage, le clavier, les périphériques, en bref 
tout le HP 71B. Ce ne sont pas les quatres exemples du manuel 
qui vous apprendront tout sur Titan. Par contre, le jeu d'ins- 
tructions, les registres du microprocesseur sont bien présentés: 
pas moins de 9 registres de 64 bits, plus quelques babiolës de 
20, 16, 12, 4 et 1 bits, ce qui porte la Ram du microprocesseur 
à 709 bits (visibles pour l'utilisateur). 

Pour créer votre fichier à assembler, passez sous le contrôle 
de l'éditeur de texte, et rentrez vos üdnstructions sous forme 
de mnémoniques. Du fait qu'il utilise à fond les étiqettes, 

on n'a besoin d'aucun code, et à la limite, point n'est besoin 
de connaître l'hexadécimal. Une fois votre fichier rempli, 
passez en Forth, tapez son nom, puis ASSEMBLE. Cette phase est 
assez longue: de l'ordre de quelques minutes pour un fichier 
source de 300 octets. Une fois assemblé, il ne fait plus que 

32 octets. On voit que le gain de place est important. Alors, 
me direz-vous, nos fichiers Lex ne feront jamais plus de un 

à deux Ko ? Eh bien si ! On peut assembler directement un 
fichier sur cassette (ou disquette), sans passer par la mémoire 
centrale. Ainsi, il est possible d'assembler un fichier de 

200 Ko (sur disquettes seulement: elles feront 600 Ko) directe- 
ment dans le 71. Mais vous ferez bien de faire toummer Titan 
pendant la nuit, ou plutôt pendant les vacances... Mais une 
fois assemblé, quelle vitesse ! 


Si l'on compte une vitesse 100 fois plus grande que Basic pour 
l'assembleur, il faut compter environ 10 foïs pour Forth. La 
performance est loin d'être négligeable, et pour une tâche qui 
demande un peu de rapidité, tout en conservant un langage évolué, 
on préferera Forth. Sur ce module, c'est le standard 83 qui est 
implanté. Ceci implique quelques différences avec les Forth 
"classiques" (standard 79). Des mots sont supprimés (comme 
FBUILSS, remplacé en partie par CREATE), et des mots nouveaux 
(CASE, OF, ENDCASE, par exenple). 
Mais Titan se distingue par ses particularités: ses adresses 
étant codées sur 20 bits, les cellules font 5 quartets (et non 
4). Elles sont codées à l'envers dans la mémoire: Forth les 
remet à l'endroit. La gestion de L'HP-IL est rudimentaire, mais 
existe: rappelez-vous que Forth est noyau à partir duquel vous 
élaborez vos propres mots. La gestion des chaînes de caractères 
est vraiment très puissante, et à aucun moment on ne regrette 
la facilité du Basic. D'autre part, pour les nostalgiques de la 
4l, il existe une "pile à virgule flottante": 5 registres de 64 
bits, nommés X, Y, Z, Tet L. Les mots Forth pour la manipuler 
sont isuus directement des calculatrices HP, dont la 41. Pour 
entrer un nombre dans cette pile, il suffit d'écrire un point 
dans ce nombre (une virgule pour la double précision). 
A noter un petit "plus" de HP: l'habituel OK est suivi ici d'un 
nombre représentant le nombre d'éléments dans la pile de données. 
Je m'y suis habitué tellement vite que j'ai l'impression d'être 


aveugle quand je passe sur d'autres ordinateurs : 
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Et j'ai gardé le meilleur pour la fin: la coexistence du Basic 
et du Forth. On peut utiliser Forth dans un programme Basic, et 
vice-versa. C'est simple à utiliser, et c'est tout bêtement 
génial. Mais ce n'est pas tout: on peut passer des données à 
l'autre langage, des chaînes, des variables ... CHARBET FORTHS 
en Basic, par exemple, établit le jeu de caractères à l'aide de 
la chaîne placée sur le sommet de la pile Forth. Quelle 
puissance, quelle souplesse : 


Dans l'ensemble, je n'ais pas été très enthousiaste à propos de 
ce module. Je pense que c'est dû à deux facteurs principaux: 
Tout d'abord, je ne l'ai pas eû très longtemps pour l'essai. 
Ensuite, et c'est le plus dommage, je n'ai pas eû toute la 
documentation: c'est un peu comme si j'étais dans une splendide 
voiture de course, et que je ne sache pas en passer les vitesses ; 
I1 reste que ce module, au plan matériel, est très bien conçu. 
On ne peut regretter que la lenteur de la phase d'assemblage, 

ce qui est somme toute mineur. 

Une impression globalement favorable, donc, pour un module que 
j'estime nécessaire pour tout amateur averti, ou pour le profes- 
séonnel soucieux des performances. 

Je vous l'ai présenté, à vous maintenant de vous faire une 
opinion, que j'éspère favorable... 


à bientôt 


Pierre DAVID 


Mot VLIST pour HP 71B et FORTE 





VLSST n'existe pas dans le vocabulaire standard de FORTH 71. 
Alors, je l'ai créé. Cet ordre liste tous les mots créés , puis 
tous les mots en Rom. C'est pourquoi le mot est divisé en deux 
parties: la deuxième est tirée du manuel, c'est pourquoi elle 
n'est pas documentée. 

Latest retourmme sur la pile l'adresse du dernier mot créé. 
Chaque nom est codé par ASCII, sauf le dernier caractère auquel 
est ajouté 128 (décimal). Avant le nom est codé l'adresse du 

mot précédent. Quand celle-ci est à 0, c'est fini. 


HEX =: VLIST LATEST 


BEGIN 
DUPF DUF DUP { adr adr adr adr) 
Ce 20 MOD € adr adr adr nb) 
DUP 2R i- { adr adr adr nb-1) 
SWAP 2+ SWAP { adr adr adr+2 nb-1) 
TYPE ( adr adr) 
R> 2*X + { adr adr+nb) 
Ce 80 — EMIT { adr) 
." “5- & ?7DUF { nouvelle adresse) 
©= UNTIL 
E0005 D i DO 
DUPF € 


BEGIN DUP COUNT iF AND i- DUP >R 2% SWAP DUP >R + C@ 7F AND R> R> 
TYPE EMIT ." “ S- @ ?DUP G= UNTIL S5+ LOUP DROP 3; 


Je vous laisse étüdier ce mot, et je vous dit: au mois prochain ! 


Pierre DAVID 
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PROGRAMME DIALOGUE 


- Si vous possédez deux HP7!, alors ce programe vous est destiné... 
Vous pourrez échanger des fichiers, éxéeuter des cosaandes basic, visualiser la aéavire et 
et le catalogue de l’autre HP71 et lui passer le contrôle de la boucle. 


0010 DIN A$[89],K$[41 
- À$C89], Variable alphanuaérique de la longueur de la aéeoire taspon , pour l'envoi de 
textes ou de coasandes basic. 
K$[41, K$=KEY$: variable de 1 à 4 caractères selon la touche pressée, 
0020 INTEGER D, 1 
- D, adresse du HP71 non-contrôleur dans la boucle, 
1, boucle catalogue et aéaoire du non-contrôleur. 


0030 GOSUB *RESTAURE? EE —— AS ut 

0040 ON ERROR GOTO ERREUR” CHE er 

0050 LC OFF DRE . Tr _ 

0060 DELAY 0,0 As D S > 
Z 


- Pratique sais non indispensable FES + FT  ye/ 
. D pa > 
0070 DISP CHR$(27)8°E*; F QE De 
- Consande affichage vidéo. 7 4p f 
0080 DISP CHA$(27)8"€*; NT / 1} 
- Commande affichage vidéo. de Y EN ji 


0500 *BOUCLE”: : AE 
0510 DIGP CHR$(27)&° A"; 

- Connande affichage vidéo. se A 4 
0520 DISP USING ’32,K°3SPOLL(ID); BCDEFHPS N 

- Affichage de SPOLL(D}: c'est l’état (STATUS) du HP71 non-contrôleur, 224 iaplique que le 
non-contrôleur désire le contrôle aais que le HP71 contrôleur ne le lui passera que Îors- 
qu'il le désirera, 160 le non-contréleur prend le contréle sans le demander sauf si le 
le contrôleur est occupé. Dans ce cas, le REQUEST 160 sera remis à zéro. 

Ceci est indiqué sur l’affichage du non-contrôleur par la sise a 1 de l'indicateur 
binaire 0. En fin de coapte, lorsque le drapeau 0 est présent sur l'affichage du non- 
contrôleur, celui-ci ne peut pas modifier son statut sauf en 224, 
B: basic, C: catalogue, D: détruire (PURGE), E: Entrée, F: fin, M: séeoire, P: passe, 
5: sortie. 
0530 IF SPOLL(D)=160 THEN * PASSE” 
- Si le statut du non-contrôleur égale 160 alors il prend le contrôle des opérations. 
0540 K$=KEY$ 
- Début de La boucle d'attente de pression de touche. 
0550 IF K$=*'? THEN * BOUCLE” 

- Si K$ est nul alors on recossence en 500 et non en 540 dans l'éventualité où le non- 

contrôleur à changé son statut entre teaps. 
6560 OUTPUT :D ;’ SFLAGO* 

- Si K$ n’est pas nul, le contrôleur lève l'indicateur binaire Q sur l'affichage du non- 
contrôleur pour lui indiquer que tous ses REQUEST” sont renis à zéro et qu’il est inuti- 
le d'essayer de prendre le contrôle tant que cet indicateur est affiché. 

0570 IF K$=’B* THEN G6OSUB * BASIC’ 
- BASIC: envoi de cossandes basic au non-contrôleur. 
0580 IF K$='C? THEN G60SUB * CATALOG” 

— CATALOG: Demande le catalogue de la aéaoire principale du non-contréleur, Ce catalogue 
est listé sur l'affichage du contrôleur, Le presier fichier listé correspond au fichier 
courant du non-contrôleur. 

0590 IF K$=’D’ THEN GOSUE * DETRUIRE’ 
- DETRUIRE: purge le fichier spécifié dans la aéaoire du non-contréleur, Attention si 
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si ce fichier se trouve dans un port protégé, il est tout de néne détruit. 
0600 1F K$=’E’ THEN GOSUB ? ENTREE” 
- ENTREE: transfère le fichier spécifié de la sénoire du non-contréleur dans la sénoire 
principale du controleur. 
0610 IF K$=’M THEN G60SUB MENOIRE” 
- MEMOIRE: affiche l’espace séaoire restant disponible dans la aésoire principale du non- 
controleur. 
0620 IF K$=’S’ THEN G60SUB ? SORTIE” 
- SORTIE: transfère le fichier spécifié de la eéaoire du contrôleur dans la aéaoire du non- 
contrôleur. SORTIE = -ENTREE. 
0630 IF SPOLL(D)(>224 THEN OUTPUT :D ;’REQUESTO” 
- Fin des opérations le contrôleur reset le statut du non-contrôleur à zéro sauf s’il est 
égal à 224. 
0640 OUTPUT :D 3’ CFLAGO” 
- L'indicateur binaire 0 est effacé de l'affichage du non-contréleur, celui-ci peut desan- 
der le contrôle de la boucle. 
0450 1F K$=’F* THEN FIN’ 
- FIN: Le contrôleur arrête tout: fin de progranse. 
6640 DISP 
- Affichage vidéo. 
0670 1F K$=°P* THEN ’PASSE’ ELSE ? BOUCLE” 
= PASSE: le contrôleur passe le contrôle des opérations au non-contrôleur. 


1000 *BASIC’: 
1010 LINPUT "BASIC :”;A$ 

- On peut aettre des virgules, serci Hewlett! 
1020 IF A$=’’ THEN RETURN 

- Si le contréleur change d'avis... .RETURN 
1030 QUTPUT :D ;A$ 
1040 RETURN 


2000 * CATALOG” : 
2010 CLEAR :D 
- C’est la seule instruction que j'ai trouvé pour éviter que le premier fichier 
ne soit listé deux fois au lieu d'une seule. Ce n’est pas terrible mais je n'ai pas le 
teaps de chercher. de vous laisse le soin de aodifier ce programe si bon vous sesble. 
2020 DIM C${22] 
- Cela perset de lister Le strict nécessaire et de resettre C$ à **. 
2030 FOR 1=0 TO INF 
2040 QUTPUT :D ;"OUTPUT :LOOP 3 CAT#C'ESTRS(T)&")* 
- En clair: CAT$(D). 
2050 ENTER :D ;C$ 
- Nouvelle valeur pour C$ dans la aésoire du contrôleur, serci encore Hewlett’ 
2080 IF C#=’* THEN RETURN 
2070 DISP C$ 
2080 WAET 1 
- Voir aanuel de référence HP-00071-90011, page 302... 
2090 NEIT I 


3000 *DETRUIRE": 

3010 INPUT *DETRUIRE :’;A$ 
3020 IF A$=’* THEN RETURN 
3030 OUTPUT :D 3 PURGE ’&A$ 
3040 RETURN 


4000 ?ENTREE”’: 
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4010 INPUT ?ENTREE :°;A$ 

4020 IF A$=7” THEN RETURN 

4030 QUTPUT :D ;’COPY’&A$& TO :LODP? 
4040 COPY :D TD A$ 

4050 RETURN 


5000 *MENDIRE”: 

9010 OUTPUT :D ;’OUTPUT :LOOP : MEN 
9020 ENTER :D 51 

3030 DISP ?MENOIRE :°;1 

9040 HAIT 1 

5050 RETURN 


6000 SORTIE”: 
6010 INPUT *SORTIE :’;A$ 
6020 IF ÀA$=7" THEN RETURN 


6030 ?SORTIED”: 
- Sortie deux, ce renvoi est utilisé lorsque le contrôleur passe le contrôle et que Île 
le prograane ‘DIALOGUE’ ne se trouve pas dans la géavire du non-contréleur. 
6040 OUTPUT :D ; COPY :LOOP TO ’&A$ 
6050 COPY A$ TO :D 
6080 RETURN 


7000 *RESTAURE": 
7010 RESET HPIL 
- Redispose correctenent le aodule HPIL: utilisé surtout après une condition d'erreur. 
7020 RESTURE 10 
- Assigne la boucle etc. etc. voir sanuel. 
7030 D=DEVADDR (*HP71°) 
- Affecte à la variable D l'adresse du HP71 non-contréleur. 
7040 IF D>0 THEN 7080 
- Si D'est supérieure à 0, on continue, autrement ..... 
7050 DISF *PAS DE HP71 17° 
3060 POP 
7070 END 
1080 REMOTE :D 
- Place le HP71 d'adresse D en aode télécoamande. 
7090 OUTPUT :D ;’DELAY 0,0” 
7160 OQUTPUT :D ;’STANDBY . 1° 

- Je n’ai pas tout cospris sur la fonction STANDEY. J'ai essayé d’avoir le tesps de répon- 
se le plus court possible mais il sesblerait que ce soit variable d’un 71 à l'autre, 
Il faudra peut-être que vous changiez ces valeurs? Je n’ai pas le teaps de voir cela. 

1110 OUTPUT :D 3; "DEFKEY"443", "REQUEST224":? 

- Deux touches sont assignées par prograase sur le clavier du non-contrôleur, la touche 
"ON? devient REQUEST 224’ et la touche ’RUN° devient ’REQUEST 160. REGUEST 224 VOudr à 
dire que le non-contréleur désire le contrôle eais qu'il attend qu’on le lui donne. 

7126 OUTPUT :D 3 "DEFKEY"#46","REQUESTI60":? 
— REQUEST 160 voudra dire que le non-contrôleur prend le contrôle sans desander l'avis 
du contrôleur. 
7130 OUTPUT :D 3 ’RESET’ 
- Toujours par mangue de teaps, Cela semble fonctionner. 
7140 GUTPUT :D ; *USERON’ 
- Place le non-contrôleur en aode USER’. 
1150 OUTPUT :D ;"REQUESTO* 
- Ceci est défini ainsi après *RESET HPIL’, alors pourquoi pas ? 
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7160 STANDBY 1,.1 

- jdes plus haut pour ? STANDBY” 
7170 USER OFF 
7180 RETURN 


8000 *PASGE”: 
8010 QUTPUT :D ;’C$=""" 
8020 QUTPUT :D 3 C$=ADDRS ("DIALOGUE")? 


= Pour savoir si le prograase ’DIALOGUE’ se trouve dans la aésoire du non-contrôleur. 


8030 OUTPUT :D ;'OUTPUT :LOOP ;C$” 

8040 ENTER :D ;C$ 

8050 1F C$=’? THEN A$=" DIALOGUE” € GOSUB *SORTIED” 
8060 OUTPUT :D ;’RUN DIALOGUE” 

8070 BEEP 1000,1 

8080 END 


8500 *FIN': 

8510 OUTPUT :D ;’DEFKEV"#45"? 
8520 OUTPUT :D 3’DEFKEV"#46"? 
8530 OUTPUT :D ;’USEROFF” 
8540 USER OFF 

8550 DEF KEY ’#45° 

8560 DEF KEY ’#46° 

8576 END 


9000 * ERREUR”: 

9010 DISP ERRA$ 

9020 BEEF 1000,.2 
9030 BEEF 2000,.2 
9040 BEEP 1000,.2 
9050 60SUR *RESTAURE” 
9060 6070 * BOUCLE” 


- Voilà! Ce programe occupera environ un ko dans la méaoire du 71 si vous supprinez tous 


Les labels et toutes les resarques. 11 est certaineaent loin d’être complet mais 
j'espère qu’il sarquera le départ d’une grande série avec TITAN, 


Heureuse Programmation. 


Michel NARTINET 


PC 
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PROGRAMME ELECNUN 





- Ce programme vous peraet de calculer la répartition des sièges lors d’une éléction 
aunicipale. Conforaément à la loi 82-974 du 19/11/82, il n’est valable que pour les 
coseunes de 3500 habitants et plus. 


MODE D’ENPLOI 

Après RUN, entrer le nosbre de sièges à pourvoir, le tour de scrutin (1 ou 2), le nosbre 
de listes en présence, le nonbre de suffrages exprinés {après abstraction des blancs 

et nuls); entrer enfin l'intitulé de chaque liste (10 caractères au plus, tableau N$) 

et le nombre de voix qui s’est porté sur celle-ci. 


Après un bref instant de cogitation, le prograane affichera les résultats (en poucent ages} 
et, si c’est le cas, le nombre de sièges attribués à chaque liste, conforsément à 
l’article L 262 (loi 82-974 du 19/11/82) du Code Eléctoral. 


Si les deux listes arrivées en tête ont le aëre nonbre de voix, entrer en preaier celle 
dont la aoyenne d'age est la plus élevée. 


Le prograsre effectue la somme des voix de chaque liste, de sanière à conparer avec le 
noabre de voix exprisées afin d'éviter les erreurs d'introduction. 


Initialisation 
0100 DESTROY ALL © OPTION BASE 1 € RESET 
- Entrées des données 
0110 INPUT Sièges à pourvoir ?’5R 
0120 INPUT ‘Tour ?*;T @ SFLAGT 
0130 INPUT Nombre de listes 7°; 
0140 INPUT "Exprimés 7°5E 
0150 SHORT S{L),P(L),B(L) & DIM N$(L)[10] 
- 5  Nosbre de suffrages obtenus 
P Pourcentage des voix 
B  Nosbre de sièges obtenus 
N$ Intitulé de la liste 
0160 H=1 & FOR I=1 TD L 
- N Indice de la liste arrivée en téte 
1 Conapteur 
0170 INPUT ‘Liste, Voix ?’:N$i1),S(1) 
0180 V=V+G{I) & IF S(1)>S(M) THEN H:1 
- Calcul de la soase des voix entrées, et recherche de la liste arrivant en tête 
V  Sosse des voix (vérification) 
0190 P(T)=1008G(1)/E & NEXT I 
- Calcul des pourcentages respectifs 
0200 IF V-E THEN BEEP INF & V=0 & GOTD 130 
- Rectification des entrées 
0210 IF PIM)CS0 AND FLABI1) THEN 3B0 
- Si ballotage, affichage seulesent des pourcentages 
0220 SFLAG 5 
0230 IF R€=4 THEN N=INT(R/2) 
0240 IF R}4 THEN N=CEIL(R/2) 
- N  Moitié des sièges 
0250 R=R-N 
- Calcul de la euitié des sièges attribués à la liste victorieuse 
0260 FOR 1=1 T0 L 
0270 IF P{I)C5 THEN E<E-S(I) 
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0280 NEXT 1 @ B=E/R 
- calcul du noabre de voix utile, et du quotient éléctoral 
@ Quotient éléctoral 
0290 FOR 1=1 TD L 
0300 IF P1)>=5 THEN D=INT(S(1)/0) & R=R-D € B(I)=B(1)+D 
- D calcul du noabre de sièges atttribué à la proportionnelle 
0310 NEXT I 
- Répartition des sièges à la proportionnelle 
0320 IF R=0 THEN 370 
0330 T=0 @ FOR I=t TO L 
0340 IF P{1)€5 THEN 560 
0350 X=S(1)/(B(1)+1) @ IF XDT THEN 6=I € T=Ï 
- X,6 Variables transitaires 
0360 NEXT 1 @ B(B)=B(6)+1 © R=R-1 @ GOTO 320 
- Répartition des sièges restant suivant la règle de la plus forte aoyenne 
0370 B(M)=B(M)+N 
- Nonbre de sièges de la liste victorieuse 
0380 DELAY 1,1 
- Affichage sans fin des résultats 
0390 FOR 1=1 TO L 
0400 STD & DISP N$UI)& : ESTRSIS(T))&? suff.* 
0410 FIX 2 & DISP N#(1D&? : *ASTRS(PIL))& 2° 
0420 IF NOT FLAG(S) THEN 460 
0430 STD & AS=NSUI)ET : "RGTRS(BII))&? siège’ 
- A$ Affichage du nosbre de sièges 
0440 IF B(1)>=2 THEN A$=A$&" 5" 
0450 DISP A$ 
0460 NEXT 1 © GOTO 390 


Sources: 


- Dossiers et Docusents du "Monde" : "Les éléctions aunicipales de aars 198$" (pages 
24 à 22) 
- hrticle L 262 du Code éléctoral (p 167) 


Olivier Arbey  {T 164, P 118) 


SEC 


n?16 


page 36 


JPE 


—— NOUVEAU SCRUTIN 





La loi électorale : combiner équité et efficacité 


M. François Mitterrand pendant ls campagne pour l'élection prési- 
dentielle de 1981. 

La proposition numéro 47 du manifeste de Créteil, adopté par le 
congrès extraordinaire du P.S. réuni le 24 janvier 1981 pour désigner le 
candidat des socialistes à la présidence de la République, indiquait : « Le 
représentation proportionnelle sera instituée pour les élections à l'Assem- 
blée nationale, aux assemblées régionales et aux conseils municipaux pour 
les communes de neuf mille habitants et plus. Chaque liste comporters au 
moins 30 % de femmes. » Dans l'esprit de M. Mitterrand et des dirigeants 
socialistes, le recours à un mode de scrutin proportionnel procédait de la 
nécessité d'améliorer la représentativité des institutions démocratiques et, 
notamment, de faire participer les minorités à tous les échelons de la vie 
politique. 

Mais comment faciliter l'expression de ces minorités tout en préser- 
vant la cohérence des majorités issues des scrutins ? Très vite, les experts 
électoraux du P.S. décidaient de concilier ces deux impératifs en combinant 
18 représentation proportionnelle, au nom de l'équité, et le scrutin majori- 


[* réforme du mode de scrutin faisait partie des engagements pris par 


Elles sont au nombre de 34 306 
d'après le recensement de 1975. 


Les communes 


; La loi a maintenu le scrutin majo- 
de MOIS ritaire à deux tours. Pour être élu 
de 3 500 au premier tour, il faut obtenir la 

. majorité ubsolue des suffrages ex- 
habitants. primés (li majorité des voix, plus 











Le nombre des conseillers municipaux 
a sensiblement augmenté 


Nombre de gen elilers | Nombre de conseillers 
Population de ls commune ravent . tion eprd doption 
de la loi loi 
Moins de 100 habitants 
100 à 499 .... .. 


500 à 1499 ........ 
1 500 à 2 499 ....... 
2 500 à 3 499 ....... 
3 500 à 4 999 ... 

5 000 à 9999 
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10 000 à 19 999 
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20 000 à 29 999 ..... 
30 000 à 39 999 . 

40 000 à 49 999 ..... 
50 000 à 59 999 ..... 
60 000 à 79 999 ..... 


150 000 à 199 999 ... 


250 000 8225 399 ... 47 


(oo coomempue ] 2 
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taire. au nom de l'efficacité. Un an après l'installation de M. Mitterrand à 


l'Elysée le projet retenu introdui 





it ainsi une dose de proportionnelle dans 


un mode de scrutin à deux tours visant à assurer l'existence d'une majorité 
stable au sein de chaque conseil municipal. 

Plusieurs points, toutefois, ne furent pas tranchés immédistement. 
Fallait-il appliquer ce nouveau système électoral aux seules communes de 


neuf mille habitants et plus ? Quels seuils conve: 


ait-il de retenir, en fonc- 





tion des suffrages exprimés ou des électeurs inscrits, au-delà desquels les 
listes pourraient participer à la répartition des sièges ou aux fusions éven- 


tuelles entre les deux tours ? 


L'opposition était divisée, l'U.D.F. demeurent favorable à la propor- 
tionnelle, dont elle avait proposé naguère l'introduction pour les villes de 
plus de trente mille habitants, et le R.P.R. dénonçant, au contraire, un sys- 
tème qui ne permet pas toujours de dégager nettement une majorité. 

La majorité était partagée, le P.C.F. confirmant son option pour une 
proportionnelle intégrale à un tour, sans panachage, dans les communes de 


deux mille cinq cents habitants et plus. 


une) et le quart des électeurs ins- 
crits. Au second tour, la majorité 
relative suffit. 


En ce qui concerne les candida- 
tures, la loi fait une distinction en- 
tre les communes de moins de 
2 500 habitants et les communes 
de 2 500 à 3 500 habitants. Dans 
la première catégorie (moins de 
2 00), los candidatures indivi- 
duclles sont autorisées ; les listes 
peuvent être incomplètes, c'est-à- 
dire comporter moins de noms 
que de sièges à pourvoir ; les élec- 
teurs peuvent rayer des noms et 
modifier l'ordre de ces noms sur 
la liste (vote préférentiel) et pa- 
nacher (remplacer les noms rayés 
sur une liste par d'autres noms fi- 
&urant sur une autre liste). Les 
électeurs peuvent également voter 
pour des personnes n'ayant pas 
fait acte de candidature. 

Dans la seconde catégorie 
(2500 à 3 500), le panachage 
reste possible, mais les listes doi- 
vent être complètes, c'est-à-dire 
comporter autant de candidats 
qu'il y a de sièges à pourvoir. 

Les listes incomplètes, le vote 
préférentiel et le panachage obli- 
gent à décompter les voix nom par 
nom et à Calculer des moyennes 
de liste. 


Exemple 


Une commune de 3 200 habi- 
tants. 11 y a 2 480 inscrits et 1 840 
suffrages exprimés. Trois listes, 
A. B, C, sont en présence qui 
comportent chacune 23 noms (au- 
tant que de sièges à pourvoir). 

— Au premier iour, la liste A 
recueille une moyenne de 


960 voix mais seuls onze noms ob- 
tiennent plus de 921 voix (majo- 
rité absolue). Ces onze candidats 
sont élus. La liste B recucille une 
moyenne de 780 voix mais quatre 
noms obtiennent plus de 921 voix. 
Ces quatre candidats sont élus. La 
liste C recucille une moyenne de 
90 voix, aucun nom n'obtient la 
majorité absolue. Il n'y a aucun 
élu sur la liste C. Qunre slèges 
sont pourvus au premier tour, huit 
sont en ballottage. 


— Au second tour, les listes 
peuvent fusionner ou être modi- 
fiées. Seront élus les huit candi- 
dats arrivés en tête quel que soit 
le nombre des inscrits. 


Les communes 
de plus 


de 3 500 
habitants. 


Elles sont au nombre de 2 084 
d'après le recensement de 1975. 
La loi a institué pour ces com- 
munes un nouveau mode de scru- 
tin : « mixte proportionnel/majo- 
ritaire» à deux tours. Les listes 
sont obligatoirement complètes. 
Panachage et vote préférentiel 
sont interdits. 


@ PREMIER CAS. - Les 
sièges sont pourvus en totalité dès 
le premier tour. Exempie d'une 
commune de 25000 habitants. 
35 conseillers municipaux sont à 
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Après plusieurs échanges de vues, la P.S. et le P.C.F. parvenaient à 
un eccord, le 19 juin 1982, sprès que les socialistes eurent concédé à leurs 
aliés que les listes obtenant au premier tour de scrutin au moins 10 % des 
suffrages exprimés puissent se maintenir au second tour. initialement, en 
effet, le projet socialiste avait retenu que seules les deux premières listes 
arrivées on tête à l'issue du premier tour pourraient se maintenir au second. 


Le projet de loi adopté le 13 juillet 1982 par le conseil des ministres 
comportait, toutefois, deux modifications par rapport à l'engagement de 
Crétei. Le gouvernement proposait que le nouveau mode de scrutin s'appli- 
quêt aux villes de cinq mille habitants et plus, et il ne retenait pas l'instau- 
retion d'un quote minimum de femmes parmi les candidats : cela pour ne 
pes encourir un risque d'inconstitutionnalité. 

immédiatement examiné par l'Assembiée nationale, fin juillet, ce 
texte était amendé per les députés soci: qui établirent son seuil d'ap- 
plication aux communes de trois mille cinq cents habitants et introduisirent 









L'ensemble du texte était adopté par l’Assembiée nationale, en pre- 
mière lecture, le 28 juillet, par 315 voix contre 155, et en dernière lecture, 
le 20 octobre, par 317 voix contre 160. Le Sénat avait notamment pro- 
posé, 8 obtenir satisfaction, que la nouvelle loi ne concernât que les 
communes de plus de 10 000 habitants. 


Mais en novembre, le Conseil constitutionnel déclarait contr. 
Constitution la disposition du projet comportent dne distinction « s 
entre candida 


Après modification, la loi était promulguée au Journal officiel du 
20 novembre 1982 sous le numéro 82-974. 


Le nouveau système électoral ainsi institué allie donc le principe pro- 
portionnaliste, qui applique à la politique le précepte de justice distributive, 
selon lequel chaque parti doit recev inci 
ritaire qui empêche la constitution d'a: 















l'obligation d'un quota de 26 % de femmes. 


élire. Il y a 18000 inscrits et 
12482 suffrages exprimés. La 
majorité absolue est 6 242. Cinq 
listes, À, B, C, D, E sont en pré- 
"SnCe. 


Lo lote A recueille 6320 voix 
(50,63 % des suffrages enprimés). 
La bote B, 3 210 voix (25,71 %), ln 


Histo C, 1 840 (14,74 %). 


La ete D, 989 (7,85 %) et la 
Mots E, 132 (1,05 ®).- 





La liste À, qui recueille la m. 
jorité absolue, obtient la moitié 
des 35 sièges arrondie à l'entier 
supérieur, soit 18. 


Les 17 sièges restants sont ré- 
partis entre toutes les listes ayant 
obtenu au moins 3 % des suf- 
frages exprimés, à la représenia- 
tion proportionnelle. Pour cela, il 
faut calculer le quotient électoral, 
qui s'obtient en divisant le nom- 
bre des suffrages exprimés (dé- 
duction faite des voix obtenues 
par les listes qui ne recueillent pas 
5% des suffrages exprimés) par 
le nombre de sièges restant à 
pourvoir (12482 — 132 : 17 = 
726). Chaque fois qu'une liste- 
ayant droit à répartition recucille 
726 voix, elle obtient un siège. 





La lots À obtient donc 6 320 
726 = 8 sièges. 
La fete B obtient donc 3210 
726 = 4 sièges. 


La lots C obtient donc 1 840 
726 = 1 sièges. 


La bete D obtient donc 989 
716 = ! siège. 





0m 
LES ÉLECTIONS MUNICIPALES DE MARS 1983 — 21 


15 sièges sont ainsi attribués. 
Les deux sièges restant à pourvoir 
seront attribués selon la règle de 
la plus forte moyenne. On attri- 
bue pour cela un siège supplémen- 
taire à chaque liste et on divise le 
nombre de voix recucilli par cha- 
Cune par ce nombre de sièges. 


Liste À : 6 320 : 8 + 1 = 702 
Liste B:3 210 : 4 + 1 = 642 


Liste C : 1 840 : 2 + 1 = 613 
Liste D: 980:1 + 1 = 490 





Ce sont les listes À et B qui ob- 
tiennent chacune un siège. 


Récapitulation 


Elus de la liste A : 18 (par le fait 
de la majorité absolue) : 
8 (par la proportionnelle) ; 
1 (par la plus forte moyenne). 
Elus de la liste B: 4 (par la pro- 
portionnelle) : 
1 (par la plus forte moyenne). 


Elus de la liste C: 2 (par la pro- 
portionnelle). 


Elu de la liste D : 
portionnelle). 


Total : 35 sièges 


1 (par la pro- 


@e DEUXIÈME CAS. — Au- 
cune liste n'obtient la majorité ab- 
solue au premier tour. Il est pro- 
cédé à un second tour. Seules 
peuvent se présenter au second 
tour les listes ayant obienu au 
moins 10 ® des suffrages ex- 
primés au premier tour. Les listes 
qui ont obtenu au premier tour 


plus de 5 % des suffrages ex- 
primés peuvent négocier la pré- 
sence de certains de leurs candi- 
dats sur les listes du second tour. 

Reprenons l'exemple précé- 
dent. Les résultats sont les sui- 
vants: * 


— Au premier tour 


La liste A recueille 4802 voix 
(38,47 % des suffrages exprimés). 

La liste B, 3 480 (27,88 %). 

La liste C, 2 420 (19,38 %). 

La liste D, 1 240 (9,93 %). 

La liste E, 540 (4,32 %). 





36 villes 
de plus de 100000 habitants 


U recensement de 1975, 
A 39 communes avaient 
une population légale 
(avec doubles comptes) de plus 
de 100 000 habitants. En 1982, 
elles ne sont plus que 36 : 
Nancy, Argenteuil et Tourcoing 
sont passées sous ce seuil. 


Si Paris, Marseille, Lyon, 
Toulouse et Nice sont toujours, 
dans cet ordre, les communes 
les plus peuplées, bien qu'elles 
perdent toutes des babitants, la 
suite du classement présente 
quelques modifications dues à 
des décroissances inégales : 
Nantes rétrograde de la 6° à la 
7° place derrière Strasbourg, Le 
Havre et Rennes passent der- 
rière Montpellier, qui monte de 
la 12° à la 10‘ place, Lille pass: 
de la 13° à La 15’ place et s’in- 
tervertit avec Reims (Toulon est 
Intercalé), Dijon passe de la 19° 
à la 20° place au profit du 
Mans, Tours de même de la 21° 
À la 22° au profit d'Angers ; 





Aix-en-Provence gagne six 
places, de in 32° à la 26', et 
Metz trois de ia 31° à La 28°, 
tandis que rétrogradent Besan- 
çon (26° à 27°), Caen (27° à 3°}, 
Villeurbanne (28° à 29°), Mul- 
house (29° à 31°) et Rouen (30° à 
34). Enfin, Perpignan gagne 
quatre places de la 36° à la 32°, 
Orléans une de Ia 34° à la 33°, 
Roubaix une de la 36 à la 35', 
Boulogne-Billancourt deux de 
la 37° à la 35°. 


À noter que si l’on prenait ia 
population municipale (qui sert 
pour fixer le mode de scrutin et 
le nombre de conseillers muni- 
cipaux), il y aurait quelques in- 
terversions dans ce classement : 
Le Havre serait avant Montpel- 
Îler, Toulon avant Reims, Le 
Mans avant Clermont-Ferrand, 
Vilieurbsane avant Metz et Be- 
sançon, Boulogne-Billancourt 
ant Orléans et Rouen. 











EN 


La liste E ne recueille pas 5 
des suffrages exprimés, elle est 
éliminée. La liste D, qui obtient 
plus de 5 % et moins de 10 % des 
suffrages exprimés, peut partici- 
per au second tour en négociant 
avec l'une des listes A, B ou C. 

- Au second tour 


Le liste A recuellle 5310 voix 
(42,54 %), ls liste B, 
sioané avec la liste 
(32,70 %) «t la Liste C, 3 090 


(24,75 %). 


La liste À, arrivée en tête, ob- 
tient la moitié des sièges arrondie 


ui a fu- 
, 4 082 


La répartition des sièges 


Le mode de répartition des 
sièges est fixé par le nouvel arti- 
cle 262 du code électoral : « Au 
premier lour de scrutin, il est at- 
tribué à la liste qui a recueilli la 
majorité absolue des suffrages 
exprimés un nombre de sièges 
égal à la moitié du nombre des 
sièges à pourvoir, arrondi, le cas 
échéant, à l'entier supérieur 
lorsqu'il y a plus de quatre sièges 
à pourvoir et à l'entier inférieur 
lorsqu'il y a moins de quatre 
sièges à pourvoir. Cette attribu- 
tion opérée, les autres sièges sont 
répartis entre toutes les listes à la 
représentation proportionnelle 
suivant la règle de la plus forte 
moyenne, sous réserve de l'appli- 
cation des dispositions du troi- 
sième alinéa ci-après. 

« Si aucune liste n’a recueilli 
la majorité absolue des suffrages 
exprimés au premier tour, il est 
procédé à un deuxième tour. Il 
est attribué à la liste qui a obtenu 
le plus de voix un nombre de 
sièges égal à la moitié du nombre 
des sièges à pourvoir, arrondi, le 
cas échéant, à l'entier supérieur 
lorsqu'il y a plus de quatre sièges 
à pourvoir et à l'entier inférieur 
lorsqu'il y a moins de quatre 
sièges à pourvoir. En cas d'éga- 
lité de suffrages entre les listes 
arrivées en tête, ces sièges sont 
attribués à la liste dont les candi- 
dats ont la moyenne d'âge la plus 
élevée. Cette attribution opérée, 
les autres sièges sont répartis en- 
tre toutes les listes à la représen- 
tation proportionnelle suivant la 
règle de la plus forte moyenne, 
sous réserve de l'application des 
dispositions du troisième alinéa 
ci-après. 

- Les Histes qui n'ont pas ob- 
tenu au moins 5 % des suffrages 
exprimés ne sont pas admises à 
répartition des sièges. 

«Les sièges sont attribués aux 
candidats dans l'ordre de présen- 
tation sur chaque liste. 
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La loi électorale 


à l’entier supérieur, soit 18 sièges. 
Les 17 sièges restant à pourvoir 
sont répartis entre toutes les listes 
à la représentation proportion- 
nelle. Le quotient électoral est 
toujours 12 482 : 17 = 734. 


La liste A obtient 5310 
7 sièges. 
La liste B obtient 4082 


S sièges. 
La liste C obtient 3090 
4slèges. 





Le siège restant à pourvoir sera 
attribué selon la règle de la plus 
forte moyenne. 


Liste A: 5310 :7 + 1 = 663. 


Liste B : 4082 : 5 + 1 = 680. 
Liste C : 3090 : 4 + 1 = 618. 


Il va à la liste B. 





Récapitulation 


Elus de la liste À :18 (par le fait 
de la majorité relative) ; 
7 (par la proportionnelle), 
Elus de la liste B: 5 (par la pro- 
portionnelle). ; 
1 (par la plus forte moyenne). 
Elus de la liste C: 4 (par la pro- 
portionnelle). 
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Total : 35 sièges 


© 

Les sièges sont attribués aux 
candidats dans l'ordre de présen 

tation des listes. 2 


Pour l'attribution du dernier 
siège, si plusieurs listes obtiennent 
la même moyenne, il revient à la 
liste qui a obtenu le plus grand 
nombre de suffrages. En cas 
d'égalité des suffrages, le siège est 
attribué au plus âgé des candidats : » 
susceptibles d'être élus. L 

Lorsqu'un siège devient vacant 
(décès, démission), c'est le candi- 
dat qui vient sur la liste immédia- 
tement après le dernier élu qui lui 
succède. s 


Les dispositions du code 


«Si plusieurs listes ont la 
même moyenne pour l'attribution 
du dernier siège, celui-ci revient 
à la lisie qui a obtenu le plus 
grand nombre de suffrages. En 
cas d'égalité de suffrages, le 
siège est attribué au plus âgé des 
candidats susceptibles d'être pro- 
clamés élus, 


Les déclarations 
de candidature 


@ « Nul ne peut être candidat 
dans plus d'une circonscription 
électorale ni sur plus d'une liste » 
(art. L. 263 du code électoral). 

+ Une déclaration de candida- 
ture est obligatoire pour chaque 
tour de scrutin. 

« Seules peuvent se présenter 
au second tour les listes ayant ob- 
tenu au premier tour un nombre 
de suffrages au moins égal à 
10 % du total des suffrages ex- 
primés. Ces listes peuvent être 
modifiées dans leur composition 
pour comprendre des candidats 
ayant figuré au premier tour sur 
d'autres listes sous réserve que 
celles-ci ne se présentent pas au 
second tour et qu’elles aient ob- 
tenu au premier tour au moins 
3 % des suffrages exprimés. En 
cas de modification de la compo- 
sition d'une liste, l'ordre de pré- 
sentation des candidats peut éga- 
lement être modifié, 

« Les candidats ayant figuré 
sur une même liste au premier 
tour ne peuvent figurer au second 
tour que sur une liste. Le choix 
de la liste sur laquelle ils sont 
candidats au second tour est noti- 
fié à la préfecture ou à la sous- 
préfecture par la personne ayant 
eu la qualité de responsable de la 
liste constituée par ces candidats 
au premier tour. » (Art. L 264.) 

@ «La déclaration de candi- 
dature résulte du dépôt à la pré- 
fecture ou à la sous-préfecture 
d'une liste (...). ll en est délivré 
récépissé. 
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« La déclaration est faite col- 
lectivement pour chaque liste par 
la personne ayant la qualité de 
responsable de liste. A cet effet, 
chaque candidat établit un man- 
dat signé de lui, confiant au res- 
ponsable de liste le soin de faire 
ou de faire faire, par une per- 
sonne déléguée par lui, toutes dé- 
clarations et démarches utiles à 
l'enregistrement de la liste, pour 
le premier et le second tour, Le 
dépôt de la liste par son responsa- 
ble doit être assorti de l'ensemble 
des mandats des candidats qui y 
figurent. La liste déposée indique 
expressément : 

« lo Le titre de la liste présen- 
téc; 

« 2° Les noms, prénoms, date 
ct lieu de naissance de chacun 
des candidats. 

« Pour chaque tour de scrutin, 
cette déclaration comporte la si- 
gnature de chaque candidat, sauf 
le droit pour tout candidat de 
compléter la déclaration collec- 
tive non signée de lui par une dé- 
claration individuelle faite dans 
le même délai et portant sa signa- 
ture. 

« Toutefois, les signatures de 
chaque candidat ne sont pas exi- 
gées pour la déclaration de candi- 
dature des listes qui ne‘procèdent 
à aucune modification de leur 
composition au second tour, 

« Récépissé ne peut être déli- 
vré que si les conditions énumé- 
rées au présent article sont rem- 
plies. » { Art. L 265.) 

@ « Les déclarations de can- 
didatures doivent êtres déposées 
au plus tard: 

« — pour le premier tour, le 
deuxième vendredi qui précède 
le jour du scrutin, à 24 heures ; 

« — pour le second tour, le 
mardi qui suit le premier tour, à 
24 heures. 

« Aucun retrait volontaire ou 
remplacement de candidat n'est 
accepté après le dépôt de la liste. 





« Les retraits de listes com- 
lètes qui interviennent avant 
xpiration des délais prévus à 
l'alinéa 1° du présent article pour 
le dépôt des candidatures sont 
enregistrés ; ils comportent la si- 
gnature de la majorité des candi- 
dats de la liste. » { Art. L.267.) 


Le remplacement 


des conseillers municipaux 


@ « Le candidat venant sur 
une liste immédiatement après le 
dernier élu est appelé à rempla- 
cer le conseiller municipal élu sur 
cette liste dont le siège devient 
vacant pour quelque cause que se 
soit. La constation, par la juridic- 
tion administrative, de l'inéligibi- 
lité d'un ou plusieurs candidats 
n'entraîne l'annulation de l'élec- 
tion que du ou des élus inéligi- 
bles. La juridiction saisie pro- 
clame en conséquence l'élection 
du ou des suivants de la liste. 

« Lorsque les dispositions de 
l'alinéa précédent ne peuvent 
plus être appliquées, il est pro- 
cédé au renouvellement du 
conseil municipal : 

« l° dans les deux mois de la 
dernière vacance, si le conseil 
municipal a perdu le tiers de ses 
membres, et sous réserve de l'a; 

lication du deuxième alinéa de 
l'article L. 258; 

« 2° dans les conditions pré- 
vues aux articles L.122-$ et 
L. 122-7 du code des communes, 
s'il est nécessaire de compléter le 
conseil avant l'élection d'un nou- 
veau maire.» (Art. L 270.) 


Le vote des électeurs 


établis hors de France 


@ « Chaque mandataire ne peut 
disposer de plus de deux procura- 
tions. Si plus de deux procura- 
tions ont été établies au nom d'un 
même mandataire, celles qui ont 
été dressées les premières sont 
seules valables ; la ou les autres 
sont nulles de plein droit. » 
(Art. L 73.) 





BACHELET CHRISTIAN 
9, rue Fernand Poulletier 
94500 CHAMPIGNY. 


Cher ami, 


Voici un petit sous programme permettant de manipuler tous les 
indicateurs binaires de l'ordinateur HP 71B. Ces indicateurs sont 
stockés par groupe de quatre dans la RAM du Système aux adresses 2F6D9 
( -94 / -01 ) à 2F6F8 ( 63 / 6$ ). 


SOUS PROGRAMME PFLAG  (POSITIONNEMENT DE FLAG) 128 ocTETS 


10 SUB PFLAG(F,E) © V=ABS(SGN(E)) € IF FLAG(F)=V THEN END 
20 AS$S=DTH$(194265-CEIL((F+1)/4)) © IF F>=0 THEN V=FLAG(F,V) © END 
SO POKE A$, DTHS CHTD (PEEKS (AS, 1) ) + (2401) &2"MOD (ABS (F+1),4)) [5,5] 


Le programme utilise les instructoins normales pour les indicateurs 
utilisateurs et "POKE" la nouvelle valeur à l'adresse désirée pour 
les indicateurs systèmes. Il n'est possible de manipuler qu'un seul 


indicateur à la fois. 


UTILISATION: CAL PFLAG (N° drapeau, état.) 
- 64 (= N° drapeau (= 63 


Etat = @ — CLEAR 
Etat £ @ — SET. 
EXEMPLE : CALL PFLAG ( -6#, 1) 


Allume le témoin d'alarme ((-)) 


Evidement, il peut y avoir quelque risque pour vos programmes et 


données à manipulerles indicateurs Systèmes, mieux vaut être prudent. 


AMICALEMENT 
CHRISTIAN. 
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I. BLDSPEC DEMISTIFIE 
II. IMPRIMANTE SP100 
III. SYSTEME GRAPHIQUE JACQUES VAUCELLE 
IV. FONCTIONS GRAPHIQUES SUR SANYO MBC-1250 


Bruno TFELNEZ cui 





ZA Bis 


QI1LBL "BLS" 
02 SF 12 
03 FIX © 
04 7 

05 STO 60 
06 1.007 
2? STO 08 
08 STO 08 
03 2 

18 ENTER” 
11 ENTER 
12 8 
LSEBE. 91 
14 7 

15 STO 19 
FE: CEX 
1758 

18 *XEQ 02 
19 ISG 08 
28 GTO @1 
2,7 

22 CLA 
23LBL @4 


24 RCL IND * 


25 X*TOA 
26 RDN 

22 DSE X 
28 GTO 24 
23 RCL [ 
38 RTN 
SILBL 22 
32 "COL 
33 ARCL 08 
34 "R?" 
35 AON 

36 TONE 8 
37 STOP 
38 PRA 

383 AOFF 
4BLBL @3 
41 X 

42 ATOX 
43 + 

44 78 

45 - 

46 DSE 09 
47 GTO 23 


48 STO IND 00 


49 DSE 28 
58 CLX 

21 8 

52: SF0. 09 
95: LEX 
s4iBL 03 
95 DSE 19 
56 GTO OS 
97 END 





BLDSPEC DEMYSTIFIE 
FÉRIÉS EsGTÉoÈsoss 


Rappelons tout d'abord qu' il existe trois types de nombres 
normalisés,le premier 1/2 octet servant d'identificateur 

0 pour les nomres positifs,9 pour les nombres négatifs 
1 pour les chaines de six caracteres,codés ASCII surles 6 octets 
de droite. 

BLDSPEC construit dans le regitre alpha un nombre binaire 
de 7 groupes de 7 bits puis y rajoute en le tranférant en X comme 
par ASTO 7 bits d'identification de chaine de caractères. 

Le dessin ci-dessous vaudra mieux qu'un long discours. 
Soit à coder la flèche D 


# bb. 


000011 ue 


= 11:E3:05:09:01:C3: ne 

Dessiner la grille 7X7 représentant le caractère.et rajouter 
à gauche une 8e colonne fistive noircie en position centrale. 

Puis on fait glisser les colonnes comme indiqué.OUn obtient un 
code de 8 fois 7 bits qu'il suffit de regrouper en 7 fois 8 octets 
pour obtenir le code du ceractère spécial. Le demi octet de gauche 
étant 1 le nombre sera stocké sans normalisation. 

Bidspec agit de manière analogue à XT0A,mais en accumulant les 
bits par 7 au lieu de 8,X allant de à à 127 (7F HEXA) au lieu de 
0 à 255 (FF HEXA) 

La création d'une ligne de texte correspondant à un tel code 
doit ètre maintenant familière à tous( utilisation du Prog. LB, 
du Q Loader ou d'autres crics° gagnant ainsi en place mémoire 
"(code )'""-REC M=STO-n..RCL n - ACSPEC 


J'ai mis au point le Prog. BLS ci-joint permettant de créer 
un caractère spécial sans qu'il soit nécessaire de calculer les 
codes décimaux des colonnes.ll suffit,à l'appel des N°s de Col. 
de taper pour chacun des 7 points en partant du bas 0 pour noirci, 
N pour non-noirci.le code ASCII de N étant 78 déc. et celui de 0 
79,le progr. retranche 78 pour obtenir la valeur de chaque bit 
Quand les 8 bits ont été accumulés et le nombre binaire tranformé 
en décimal,chaque nombre est stocké dans les Reg. U à 6 .En fin 
de progr. la Fon. XT0A range les 7 octets dans le Reg. M. 


KXEQ "BLS" 

ODOONNN RUN @. ENTER" 

OOOONNN 128. 

OONNNNN RUN BLDSPEC 

OONNNNN 96. 

ONONNNN RUN BLDSPEC 

ONONNNN “charCa" ### 80. “céorCc" #FE 
ONNONNN RUN #  BLDSPEC ACSPEL 
ONNONNN ue DECODE 72. _ À 
NNNNOCO RUN LES83498IT384 BLDSPEC ne ECE 
NNNNOOO 2. 

NNNNOON RUN BLDSPEC 

NNNNOON 6. 

NNNNONN_ RUN sn 

TRIO BLDSPEC 
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IMPRIMANTE SP 100 


RAPHISME 
ON ET LE G 

E MATRICIELLE POUR LA GESTI 

IMPRIMANT 





En informatique, le coût d'exploitation est aussi essentiel que la performance. 
L'imprimante matricielle SP 100 se distingue par une excellente fiabilité 
alliée à des performances et à une qualité d'impression remarquable. 
L'imprimante SP 100 est utilisée pour les applications gestion. 

Sa vitesse, son service papier, sa possibilité d'imprimer en graphisme les 
résultats, en font un outil idéal pour la facturation, 
la comptabilité, la paie, les statistiques. 


SPÉCIFICATIONS 


INTERFACES : parallèle Centronics 
Série RS.232 C 





IMPRIMANTE : matricielle 










b  bi-directionnelle pour le texte 







+ cartouche Ruban 
k Unidirectionnelle pour le graphisme 









ET. 220 volts + 10 % 
: 100 caractères par seconde, 66 lignes/mn + 






Consommation : 30 Watts 







s 80 colonnes standard 


PICA - ELITE - CONDENSÉ - EXPANSÉ Dimensions : 401 ce X337 mm x104 mm 


Poids : 7.8 kg 





L Entraînement continu - 
Du | Distribué par : 













Système Graphique J. VAUCELLE, “La Chasserie", 35133 Romagné pour 
Programme SOTN-L T A D : Y. ALAJOUANINE 1068 bis Rue Hénon 
69004 LYON Tel: 7 830 80 50 - Âssociation Française de Topographie 


27000 Fr HT ( Sept. 1983 ) Le géonètre s'équipe au fur 

DISQUE DUR Calculateur à écran graphique et à mesure de ses besoins : 
10 000 000 octets visualisant 640 x 400 points 1°) ordinateur de poche EP 41 CV 
SANYO MBC 1250 avec module JV 82180 E (603 reg 


en port 1. Le msdule JV 603 C 
est enovible en port 3 comme 
mémoire permanente tanpon , si 

besoin . Le mséule HP IL + Plette: 
se met en port & esamse le Lecteur 
de cartes magnétiques. Le port 
2 peut servir eumsëêsle composi 
JV(1/0 + HP-IL DEVEL) facilitant 
la condensation de la saiste. 
2°) la boucle HP-IL est 
indispensable pour branche 
les périphériques acquis 
N dans l'ordre suivant : 


3°) L'unité HP 821614 pour lir 
et enregistrer sur micro-cassette HP 
de 131 000 octets, soit 18700 expressions 
élémentaires ( ou 37000 environ en mode condensé 
avec une base numérique 256 ) . Le nombre de points 
enregistrés sur une micro-cassette HP82176A dépend d 
nombre d'expressions élémentaires mécessaires par 
point . Les micro-cassettes sont dupliquables avec 
le module 1/0 ( entrées / sorties ) et deux unités 
RP 821614 placées dans la boucle HP-IL. 


4°) L'imprimante graphique JVPG-250 ee branch 
sur la boucle HP-IL et sur le SANYO MBC-125 
avec un câble parallèle ‘“Centronics”*. Dan: 
ce cas elle reproduit en mode trasmé le 
dessin présent sur le tube cathodique 
Elle fait traceur sous contrôle du 
calculateur HP-41CV avec le module 
D Plotter . Le papier de largeur 250 «m 
ou 400 mm ( JVPG-400 ) est entrainé par picot 
en avant ou arrière par logiciel pour le tracé automatique . Le 
dispositif tracteur est réglable en largeur sur 10 am + L'impression 
s'effectue à 160 caractères par secondes , avec réglage de 68 à 136 colonnes par lign 





e calculateur SANYO MBC-1250 à écran graphique ( 256 000 points ) semble 
te tie 1083 le meilleur rapport qualité / prix pour le géomètre pratiquant le 
mode graphique jateractif ; par exemple pour la mise au point ées piess sur écran 
avant dessin sur table traçante . À défaut du MBC-1250 la photo-copie de l'ecran peu 
servir à la mise au point de la micro-cassette correspondante directement avec le 
calculateur de poche HP-4 1 CV + Plotter par le chef de brigade topographique regarda 
sen croquis de terrain. La micro-esssette modifiée est retournée emsuite au bureau 
d'étude équipé du SANYO MBC- 1250 avec le programse L T À D ( Logiciel de Tracer 
Automatique Direct ) expleitant la Saisie des Observations de Topométrie Moderne 
effectuée sur le terrain avec le programme S O T M dans le calculateur HP-41 CV . 
Le convertisseur MP-IL / RS 232 ( Référence HP 821644 ) est interfacé per Mr J. VAUCEL 
Les données sont ainsi stockées sur disquettes 800 000 octets 5 pouees 1/4. 

Les caractéristiques techniques du SANYO MBC-1250 figurent au verso de cette page . 
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Saisie des Observations de Topométrie Moderne 
avec Logiciel de Tracer Automatique Direct YA 


Le système graphique obtenu en employant le calculateur HP41CV/922C+N603C 
est rendu plus intéressant en effectuant le traitement graphique interactif 
de tracer automatique au bureau avec exploitation des données au moyen d'un 
mini-ordinateur convenant techniquement et financièrement à un bureau 
d'études topographiques utilisant une seule brigade de géomètres. 


Le développement en 1983 de cette méthode s'appuie sur un micro-ordinateur 
MBC 1250 d'une grande marque valant 39200Fr HT. avec imprimante en Sept. 1983 
Ce matériel allie les avantages d'un calculateur de gestion à de hautes 
performances scientifiques - CPU : 2 X 80 A ( 4 MHz ) et 1 X 8048 ( clavier ). 
- RAM : 64Ko utilisateur + 32 Ko vidéo +8 Ko générateur de caractères 
programme en option = ROM : 4Ko moniteur de caractères. 


Le clavier est détachable , ergonomique AZERTY accentué en langue française. 
11 comprend 100 touches dont 5 de gestion du curseur et 15 fonctions 
programmables. Son format est de L442,P 240 et H 15 à 63 mm. 


L'écran de visualisation de 31 cm est au phoshore ( vert reposant ). Il est 
traité anti-reflet et offre 80 X 40 lignes avec 255 caractères différents. 
Possibilités de matrices 8 X 8 , de soulignage ou surlignage , inversion 
noir / blanc , traçage précis des courbes grâce à la résolution de 256 000 

( 400X 640 ) points ( avec visualisation éventuelle alphanümérique connexe 
sur écran vert au phosphore en périphérique ) , toutes ces possibilités 
couvrent amplement les besoins d'une entreprise moyenne en gestion et pour 
son bureau d'études éditant des plans. Le format est de L410,P 370,H 337 mm. 


Deux lecteurs intégrés de disquettes en standard 5"1/4 offrent 800 Koctets 
formatés , avec en extension disque dur Winchester 5" de 10 Mo donnant une 
grande puissance de traitement informatique . La technologie des entrées 

et sorties est du type parallèle Centronics , norme RS 232C V24 , avec 
configuration modem. CPM2.2 est la spécification du système opération. 

Les langages et utilitaires sont : Basic 80, KBasic, SBasic, Cobol 80, 
Fortran 80 ,; Algol, FORTH, PLM/X, PASCAL MT+ . I1 existe également des 
générateurs de fichiers et de masques d'écran. Un compilateur Fortran existe. 


Le logiciel d'exploitation a un système de gestion de fichiers répandu CP/M 
offrant les avantages suivants : fiabilité, l'universalité ( en application 
sur la presque totalité du parc de micro-ordinateurs à disques souples ), 
grand choix d'utilitaires ( format, copie, Editeur , Dump, Asm, Load , Sysgen, 
Ddt , Stat, Transmission) , compatibilté avec les autres micro-ordinateurs 
même aussi le format 3740 IBM grâce à un utilitaire de traduction, grand 
choix de langages informatiques : Assembleur 8080, Z 80, Cobol , Fortran, 
Pascal , APL, Basic, Basic compilé, Basic Séquentiel indexé, etc ... 


Les logiciels d'application comprennent en plus des programmes de base , 

la gestion comptable , la gestion commerciale , paie. Sont disponibles 
aussi le traitement de texte avec mailing, caisse enregistreuse , gestion 
de stocks ( indépendante ou intégrée ), Une bibliothèque centrale permet de 
collecter et de rediffuser un ensemble important de programmes spécifiques : 
assurances , administrateur de biens , experts-comptables, notaire , et pour 
géomètres-experts ou topographes en génie civil ou métrologie industrielle. 
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(UILLET-AOUT FFC FARIS CHAFTER 
j 


ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISTREE 
A PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


EUILLETIN D° ADHES I ON 


NOM RS ANR AE PU DRM Rp a Ace pe po eos 
BRENOM 122 EURUEURCECICILILICI III It DATE DE NAISSANCE 11/11 1/11: 
ADRESSE 4 Medal Pt ht ce lui all dollar de 
NE A de a a da ele le els Le 
CODE FOSTAL 129 FAYs IUIUIUIUIUIUIURUEUIUIUILILR HU UIDIUI RH tt 
TELEPHONE DOMICILE 11 0t/1CICICICICI CI CH BUREAU 1211/1010 CILI I II 
CSS RS D ee a ti te 

INTERETS ed SE ie me 
MATERIEL HF EN VOIRE FOSSESSION oc cute 

DORE MATÉRIEL MICRO= INFORMATIQUE 2 


COMMENT @GVEZ-VOUS CONNU FFC FARIS CHAFTER 
PUBLICITE - ne : | …_. MAGAZINE 
ALITRÉMÉELIR Se TA in 0 MP 


RELATIONS. MEMBRES DU CLUE, AUTRES ___ 


QUE RECHERCHEZ-VOUS AU SEIN DU FFC FARIS CHABTER 2222 none 


Je souhaite adhérer au club FFC FÉRIS CHAFTER conformément aux statuts de 
l'association. Au mieux de ma connaissance, je déclare avoir le droit de fournir 
tous les programmes et informations Que je vous enverrai (sans enfreindre des 
obligations de secret à l'égard d'autres Personnes OÙ organismes) GENE 
publication dans le journal de liaison, sans cbligations ni  responsabilite 
d'aucune sorte (en cas d'utilisation frauduleuse) de la part des dirigeante di 
FFC FARIS CHAFTER, 


DATE 11 1/1 i 1419: i ï 


SIGNATURE, FRECEDEE DE LA MENTION "LU ET 4FFROUVE" 


LE MONTANT DE Lé COTISATION AU FFC FARIS CHAFTER S'ELEVE À 30.00 FF, 
L'AERONNEMENT FOUR UN  &N AU JOURNAL J.F.C, S'ELEVE à 179,00 FF. 
FAIEMENT EFFECTUE LE 11H /1011/1010301 À L'ORDRE DE FFC FARIS CHAFTER, 
FAR LC 1 CHEQUE BANCAIRE N° 222 BANQUE 
L 1 CHEGUE FOSTAL 3 VOLETS N° 
UC 1 MANDAT LETTRE 
EVENTUELLEMENT: JE M'&ERONNE & COMPTER DU 51 fit #19 ii 


JOINDRE à VOTRE INSCRIPTION UNE ENVELOFFE TIMBREE À VOTRE ADRESSE. 


VEUILLEZ ENVOYER TOUTE CORRESPFONDANCE À: 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS (FRANCE) 
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